如何知道用户鼠标点击的位置在窗口（Form.ClientRect）之外-200分求助 ( 积分: 200 )

yhli · 2005-05-20

问题描述： 用户选择执行画一条直线或选定一个Zoom Window(图形缩放常用)，接下来应该用鼠标在当前窗口内选择两点，但此时，用户并没立即这样做，而是又点击了菜单栏上其他控件，如菜单按钮或ComboBox等，此时，程序死了（实际上在等待），因此，我想在用户点击菜单栏上其他控件时，立即结束取点动作。请高手指点迷津！ 以下是两段程序共参考： 第一段：取点程序 function TMain.GetPoint(csPrompt:String; var pt:TPoint):Boolean; var   bResult              :Boolean ;   mMsg                 :MSG;   i                    :integer; begin   StatusBar1.Panels[2].Text:=csPrompt;   bResult       := FALSE;   bGettingPoint := TRUE;    // Wait until the message of TJ_POINT_INPUTTED or TJ_POINT_CANCEL is received.   while (GetMessage(mMsg, Handle, 0, 0)) do   begin      i := mMsg.message;      if i = TJ_POINT_INPUTTED then      begin         if (Ortho=1) and  (iCurrentPoint=1) then         begin            pt.x:=Round(ptPrev[1].x);            pt.y:=Round(ptPrev[1].y);         end         else pt := MouseDownPoint;         bResult := TRUE;         break;      end;      if i = TJ_POINT_CANCEL then      begin          ClearRubber();  bResult := FALSE;  // post a canceled (not cancel) message  PostMessage(Handle,TJ_POINT_CANCELED,WPARAM(0),LPARAM(0));  break;      end;      //如果用户在窗口外点击鼠标（如何判断？？？），则中止退出，      //即 PostMessage(Handle,TJ_POINT_CANCELED,WPARAM(0),LPARAM(0));      TranslateMessage(mMsg);      DispatchMessage(mMsg);   end;   bGettingPoint := FALSE;   result:=bResult; end; 第二段：鼠标在当前窗口按键处理程序，按右键结束取点动作 procedure TMain.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  MouseDownPoint := Point(X,Y);  if Button = mbLeft then  begin    rMouseDown:=True;    ClearRubber();    if IsGettingPoint() then         PostMessage(handle, TJ_POINT_INPUTTED, WPARAM(0), LPARAM(1))  end  else if Button = mbRight then  begin       if bGettingPoint then          PostMessage(Handle,TJ_POINT_CANCEL, WPARAM(0),LPARAM(0));  end; end;

yhli · 2005-05-20

问题描述： 用户选择执行画一条直线或选定一个Zoom Window(图形缩放常用)，接下来应该用鼠标在当前窗口内选择两点，但此时，用户并没立即这样做，而是又点击了菜单栏上其他控件，如菜单按钮或ComboBox等，此时，程序死了（实际上在等待），因此，我想在用户点击菜单栏上其他控件时，立即结束取点动作。请高手指点迷津！ 以下是两段程序共参考： 第一段：取点程序 function TMain.GetPoint(csPrompt:String; var pt:TPoint):Boolean; var   bResult              :Boolean ;   mMsg                 :MSG;   i                    :integer; begin   StatusBar1.Panels[2].Text:=csPrompt;   bResult       := FALSE;   bGettingPoint := TRUE;    // Wait until the message of TJ_POINT_INPUTTED or TJ_POINT_CANCEL is received.   while (GetMessage(mMsg, Handle, 0, 0)) do   begin      i := mMsg.message;      if i = TJ_POINT_INPUTTED then      begin         if (Ortho=1) and  (iCurrentPoint=1) then         begin            pt.x:=Round(ptPrev[1].x);            pt.y:=Round(ptPrev[1].y);         end         else pt := MouseDownPoint;         bResult := TRUE;         break;      end;      if i = TJ_POINT_CANCEL then      begin          ClearRubber();  bResult := FALSE;  // post a canceled (not cancel) message  PostMessage(Handle,TJ_POINT_CANCELED,WPARAM(0),LPARAM(0));  break;      end;      //如果用户在窗口外点击鼠标（如何判断？？？），则中止退出，      //即 PostMessage(Handle,TJ_POINT_CANCELED,WPARAM(0),LPARAM(0));      TranslateMessage(mMsg);      DispatchMessage(mMsg);   end;   bGettingPoint := FALSE;   result:=bResult; end; 第二段：鼠标在当前窗口按键处理程序，按右键结束取点动作 procedure TMain.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  MouseDownPoint := Point(X,Y);  if Button = mbLeft then  begin    rMouseDown:=True;    ClearRubber();    if IsGettingPoint() then         PostMessage(handle, TJ_POINT_INPUTTED, WPARAM(0), LPARAM(1))  end  else if Button = mbRight then  begin       if bGettingPoint then          PostMessage(Handle,TJ_POINT_CANCEL, WPARAM(0),LPARAM(0));  end; end;

delphibbs_Lee · 2005-05-20

用SetCapture跟ReleaseCapture试试看

yhli · 2005-05-20

delphibbs_lee,你好！ 具体如何实现，能否详细说明一下。

zhengmw · 2005-05-20

建议参考Delphi7/Demos/Doc/Graphex 换个角度思考 在"画布"的MouseDown事件激活上面事件MouseUp事件结束

xuxiaohan · 2005-05-20

在"画布"的MouseDown事件激活上面事件MouseUp事件结束 嗯，这样出来是方便多了。但是对用户来说是痛苦， ACAD不是这样做的。 －－－－－－－－－－－－ 两个方法：  1. 用Mouse Hook，不用什么 MouseDown  2. 拦截CM_CancelMode。（就是在你的画布外面单击任何控件产生的）。

delphibbs_Lee · 2005-05-20

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type  TForm1 = class(TForm)    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  SetCapture(Handle); end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  //此时鼠标不管是否是在Form1的ClientRect里面都会触发  ReleaseCapture;  ShowMessage('Up'); end; end.

yhli · 2005-05-20

首先，谢谢大家对这个问题的关注！ xuxiaohan:  不知如何拦截CM_CancelMode？（就是在你的画布外面单击任何控件产生的）。 delphibbs_Lee： 关键是用户没有在窗口中点击，而是在窗口外面，如ToolBar上点击，所以SetCapture...好像没用。 我目前采取的方法是，用户一旦选择了画线（取窗）按钮，为避免在窗外点击，将鼠标移动范围限制在窗口内，但我觉得如有其他解决办法，最好不要这样限制，鼠标移动到窗口边缘，被阻挡而不能外移动，有种粘滞或费劲的感觉。

xuxiaohan · 2005-05-26

你的程序应该有一个主窗体吧，但你单击主窗体的任何一个位置，主窗体就会发送一个CM_CANCALMODE 给窗体中拥有 Focus 的控件（只有TWinControl才能拥有Focus，你的画布也应该用TWinControl）， 这是源码： procedure TCustomForm.SendCancelMode(Sender: TControl); begin  if Active and (ActiveControl <> nil) then    [blue]ActiveControl.Perform(CM_CANCELMODE, 0, Longint(Sender))[/blue];  if (FormStyle = fsMDIForm) and (ActiveMDIChild <> nil) then    ActiveMDIChild.SendCancelMode(Sender); end; 另外的源码： procedure TControl.WMLButtonDown(var Message: TWMLButtonDown); begin  SendCancelMode(Self);  inherited;  if csCaptureMouse in ControlStyle then MouseCapture := True;  if csClickEvents in ControlStyle then Include(FControlState, csClicked);  DoMouseDown(Message, mbLeft, []); end; procedure TControl.WMNCLButtonDown(var Message: TWMNCLButtonDown); begin  SendCancelMode(Self);  inherited; end; procedure TControl.SendCancelMode(Sender: TControl); var  Control: TControl; begin  Control := Self;  while Control <> nil do  begin    if Control is TCustomForm then      TCustomForm(Control).SendCancelMode(Sender);    Control := Control.Parent;  end; end; 看到了没有，所以，只要鼠标按下，只要是按在窗口的范围内（不管是什么控件 toolbar，按钮，菜单－菜单其实是不一样的，下面我再解释），窗口的activteControl 都会接收到一个 CM_CANCELMODE 消息。 procedure TControl.WMContextMenu(var Message: TWMContextMenu); var  Pt, Temp: TPoint;  Handled: Boolean;  PopupMenu: TPopupMenu; begin  if Message.Result <> 0 then Exit;  if csDesigning in ComponentState then  begin    inherited;    Exit;  end;  Pt := SmallPointToPoint(Message.Pos);  if InvalidPoint(Pt) then    Temp := Pt  else  begin    Temp := ScreenToClient(Pt);    if not PtInRect(ClientRect, Temp) then    begin      inherited;      Exit;    end;  end;  Handled := False;  DoContextPopup(Temp, Handled);  Message.Result := Ord(Handled);  if Handled then Exit;  PopupMenu := GetPopupMenu;  if (PopupMenu <> nil) and PopupMenu.AutoPopup then  begin    [gold]SendCancelMode(nil);[/gold] 窗口菜单发出的。    PopupMenu.PopupComponent := Self;    if InvalidPoint(Pt) then      Pt := ClientToScreen(Point(0, 0));    PopupMenu.Popup(Pt.X, Pt.Y);    Message.Result := 1;  end;  if Message.Result = 0 then    inherited; end; 至于如何拦截这个 CM_CANCELMODE, 你可以用继承新控件做为你的画布，当然也可以用 TWndMethod，将画布的 WindowProc 用新的代替。 例子： constructor TPopupWindow.Create(AOwner: TComponent); begin  inherited Create(AOwner);  FButton := TWinControl(AOwner);  ControlStyle := ControlStyle + [csNoDesignVisible, csReplicatable,    csAcceptsControls];  Ctl3D := False;  ParentCtl3D := False;  Visible := False;  Parent := FButton;  width:=160;  height:=160;  FoldBtnWndProc:=FButton.WindowProc;  [blue]FButton.WindowProc:=btnWndProc;[/blue] end; procedure TPopupWindow.btnWndProc(var message: TMessage); begin  with message do  if (Msg=CM_CANCELMODE) or (Msg=WM_KILLFOCUS) then hide;  FoldBtnWndProc(Message); //这个必须的。 end; 我已经讲的很详细了。。。。。

yhli · 2005-06-02

谢谢各位！

如何知道用户鼠标点击的位置在窗口（Form.ClientRect）之外-200分求助 ( 积分: 200 )

yhli

Unregistered / Unconfirmed

yhli

Unregistered / Unconfirmed

delphibbs_Lee

Unregistered / Unconfirmed

yhli

Unregistered / Unconfirmed

zhengmw

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

delphibbs_Lee

Unregistered / Unconfirmed

yhli

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

yhli

Unregistered / Unconfirmed

Similar threads