200分紧急求助：问个窗口移动,鼠标点击问题!(200分)

老李无敌 · 2003-10-21

本人想拖动窗口能象拖动标题一样移动窗体,点击右键弹出菜单. 下面过程,实现了拖动,但屏蔽了右键. procedure tform1.wmchittest(var message : twmnchittest); begin   inherited;   message.Result := htcaption; end; 如果用 procedure tform1.wmchittest(var message : tmessage); begin     case message.msg of wm_nchittest : ....         WM_LBUTTONDOWN : ....     end; inherited; end; 能实现吗?如何实现?有更好的办法吗?请详细说明! 谢谢!!

lixx · 2003-10-21

直接处理WM_LBUTTONDOWN消息即可，处理前只要判断一下鼠标位置是否在客户区 给你一遍文章仅供你参考： 无标题窗口的移动 出自：http://grace7450.xiloo.com 2002年10月06日 22:57 　　在 Delphi 编程中有时要对无标题窗体进行移动，以下就结合本人的经验介绍几种对无标题窗体移动的方法。 方法一： 　　通过响应“wm_NCHitTest” 消息来移动窗体。Windows 发送“wM_NCHitTest” 消息来确定鼠标操作是否发生在窗体的客户区，或边框的特殊区上（非客户区）。如果 Windows 发现用户单击了窗体标题，系统将移动窗体，单击了窗体边框，则系统将开始改变窗体大小。 例程如下： ... private 　{ Private declarations } 　 Procedure MoveForm(var M:TWMNCHITTEST);Message WM_NCHITTEST; 　//声明一自定义事件，拦截“WM_NCHITTEST”消息 public ... {$R *.DFM} Procedure TForm1.MoveForm (var M:TWMNCHITTEST); begin 　inHerited;//继承，窗体可以继续处理以后的事件 　if (M.Result=HTCLIENT) //如果发生在客户区 and ((GetKeyState(vk_CONTROL) < 0)//检测“Ctrl”键是否按下 then M.Result:=HTCAPTION; //更改“.Result”域的值 end; 方法二： 　　通过为 Application.OnMessage 创建一个处理程序获得 Windows 消息，可以调整应用程序对不同消息的响应或为不能正常识别的消息提供服务。这里受到窗体客户区的鼠标按下的消息后，发送一条在标题栏内按下的消息。 例程如下： ... 　procedure FormCreate(Sender: TObject); private 　{ Private declarations } 　procedure AppMessage(var Msg:TMsg;var Handled:Boolean); ... {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin 　Application.OnMessage:=AppMessage; 　//捕捉消息：将程序的收到消息事件与消息过滤过程关联起来 end; procedure TForm1.AppMessage(var Msg:TMsg;var Handled:Boolean); begin 　if (Msg.message=WM_LButtonDown) and 　//如果鼠标左键按下的话 　(DefWindowProc(Handle, WM_NCHitTest, 0, GetMessagePos)=HTClient) and 　//判断光标是否在客户区内 　((GetKeyState(vk_CONTROL) < 0) 　//检测“Ctrl”键是否按下 　then 　begin 　　SendMessage(Handle, WM_NCLButtonDown, HTCaption, GetMessagePos); 　　//发送鼠标在标题栏内按下的消息 　　Handled:=true; 　end; end; 方法三： 　　直接向窗体发送一条“wm_SysCommand” 消息，需要使用未归档的“sc_DragMove” 标志，定义如下： const 　sc_DragMove:LongInt=$F012; 　　我们只能向 TWinControl 派生组件发送该消息，而且只能响应鼠标按下事件，因为系统会在此时捕获鼠标（当释放鼠标键时，拖动操作是没有意义的）。 例程如下： ... const 　sc_DragMove:longint=$F012; implementation {$R *.DFM} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin 　if ssCtrl in Shift then 　//判断“Ctrl”键是否按下 　Begin 　　ReleaseCapture; 　　//释放鼠标事件的对象 　　(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0); 　　//发送消息 　end; end; 　　这种方法适用与窗体与组件，如想移动组件，将其“OnMouseDown” 事件写成与 Form 的“OnMouseDown” 事件一样即可。如只想移动窗体可按以下方法编写代码： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin 　if SsCtrl in Shift then 　Begin 　　ReleaseCapture; 　　SendMessage(handle, wm_SysCommand, sc_DragMove, 0); 　end; end; 运行结果： 　　按下“Ctrl” 键拖动鼠标即可移动窗体。 总结： 　　要实现无标题窗体的移动有很多种方法，还可以通过检测鼠标的位置（坐标）来确定 Form 的“left” 与“top” 值等方法，在此不再详细举例. 以上程序均在 Delphi 3.0 下编译通过。

xhlight · 2003-10-21

完全同意楼上的，可是被他抢了先。三种方法各有千秋，不过我经常用第三种，比较简单。代码如处： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin     if Button = mbLeft then        begin          ReleaseCapture;          Perform(WM_SYSCOMMAND, $F012, 0);        end; end;

shaga · 2003-10-21

同意，老问题了

老李无敌 · 2003-10-21

谢谢您的答复,还有几个问题: 1.方法一我早试过,但不知如何使用鼠标右键,好象屏蔽了! 2.方法二中的Handled:=true;表示什么意思,有何作用! 3.方法二中的((GetKeyState(vk_CONTROL) < 0) 　//检测“Ctrl”键是否按下 ------- 有何作用,放在那儿好象有错! 4.下面的程序为何,当右键点击后就无法移动了,把showmessage该成beep就好了,我该怎么做! type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public    procedure AppMessage(var Msg:TMsg;var Handled:Boolean);     { Public declarations }   end; var   Form1: TForm1; implementation procedure tform1.AppMessage(var Msg:TMsg;var Handled:Boolean); begin  if (Msg.message=WM_LButtonDown) and  (DefWindowProc(Handle, WM_NCHitTest, 0, GetMessagePos)=HTClient) then  begin   SendMessage(Handle, WM_NCLButtonDown, HTCaption, GetMessagePos);   Handled:=true;  end  else  if (Msg.message=WM_rButtonDown) and  (DefWindowProc(Handle, WM_NCHitTest, 0, GetMessagePos)=HTClient)  then  begin  showmessage('aa');  Handled:=true;  end; end; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=AppMessage; end; end.

200分紧急求助：问个窗口移动,鼠标点击问题!(200分)

老李无敌

Unregistered / Unconfirmed

lixx

Unregistered / Unconfirmed

xhlight

Unregistered / Unconfirmed

shaga

Unregistered / Unconfirmed

老李无敌

Unregistered / Unconfirmed

Similar threads

200分 紧急求助：问个窗口移动,鼠标点击问题!(200分)

老李无敌

Unregistered / Unconfirmed

lixx

Unregistered / Unconfirmed

xhlight

Unregistered / Unconfirmed

shaga

Unregistered / Unconfirmed

老李无敌

Unregistered / Unconfirmed

Similar threads

200分紧急求助：问个窗口移动,鼠标点击问题!(200分)