我已经一愁莫展，哪位帮忙搞定(关于WM_NCHITTEST)(100分)

yeah · 2000-07-28

各位，如何手动发送WM_NCHITTEST消息?具体情况如下： 我做了一个Netants类似的拖放窗口(DropBasket)，代码如下: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, Menus; type   TForm1 = class(TForm)     Image1: TImage;     PopupMenu1: TPopupMenu;     abadsdfasdf1: TMenuItem;     procedure FormCreate(Sender: TObject);   private     procedure WM_NCHITTEST(Var Message:TWMNCHITTEST); Message WM_NCHITTEST;     procedure WM_NCLBUTTONDBLCLK(Var Message:TWMNCLBUTTONDBLCLK); Message WM_NCLBUTTONDBLCLK;     procedure WM_NCRBUTTONUP(Var Message:TWMNCRBUTTONUP); Message WM_NCRBUTTONUP;     { Private declarations }   public     procedure CreateParams(Var Params:TCreateParams);override;     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} uses main; procedure TForm1.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   With Params do   begin     params.WndParent:=GetDesktopWindow;     EXSTYLE:=EXSTYLE or WS_EX_TOOLWINDOW OR WS_EX_TOPMOST;   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and not ws_Caption);   Width:=40;   Height:=40;   Image1.Picture.Icon:=Application.Icon; end; procedure TForm1.WM_NCHITTEST(var Message: TWMNCHITTEST); begin   Inherited;   if Message.Result=HTCLIENT then Message.Result:=HTCAPTION; end; procedure TForm1.WM_NCLBUTTONDBLCLK(var Message: TWMNCLBUTTONDBLCLK); begin   inherited;   ShowMessage('I get DblClick Message!');   SetActiveWindow(frmMain.Handle); end; procedure TForm1.WM_NCRBUTTONUP(var Message: TWMNCRBUTTONUP); begin   inherited;   PopupMenu1.Popup(Message.XCursor,Message.YCursor); end; end. 以上代码在win98中正常，可是今天，我在win2000中运行了此程序， 发现除了WM_NCHITTEST消息总是被触发(WM_NCRBUTTONUP也正常)外， WM_NCLBUTTONDBLCLK消息却永远不被执行，当我双击窗体时， 窗口被最大化！(因为WM_NCHITTEST先被执行，而此时的双击被 理解为在标题栏上的双击，所以它总是执行最大化、还原两个动作。) 我要问的实际上不只是以上这个问题的解决办法，而且想知道 如何手动发送WM_NCHITTEST消息？我不知道如何在SendMessage中如何 指定Lparam参数(在WM_NCHITTEST消息中，它是一个TPoint)

hustmouse · 2000-07-28

参考下面的文章: 如何单击除了窗口标题栏以外的区域使窗口移动   当窗口需要确定鼠标位置时Windows向窗口发送WM_NCHITTEST信息，可以处理该信息使Windows认为鼠标在窗口标题上。对于对话框和基于对话的应用程序，可以使用ClassWizard处理该信息并调用基类函数，如果函数返回HTCLIENT 则表明鼠标在客房区域，返回HTCAPTION表明鼠标在Windows的标题栏中。 UINT CSampleDialog : : OnNcHitTest (Cpoint point ) {  UINT nHitTest =Cdialog: : OnNcHitTest (point )  return (nHitTest = =HTCLIENT)? HTCAPTION : nHitTest }  上述技术有两点不利之处， 其一是在窗口的客户区域双击时，窗口将极大； 其二，它不适合包含几个视窗的主框窗口。 还有一种方法，当用户按下鼠标左键使主框窗口认为鼠标在其窗口标题上，使用ClassWizard在视窗中处理WM_LBUTTODOWN信息并向主框窗口发送一个WM_NCLBUTTONDOWN信息和一个单击测试HTCAPTION。 void CSampleView : : OnLButtonDown (UINT nFlags , Cpoint point ) {  CView : : OnLButtonDow (nFlags , pont )  //Fool frame window into thinking somene clicked on  its caption bar .  GetParentFrame ( ) —> PostMessage (  WM_NCLBUTTONDOWN , HTCAPTION , MAKELPARAM (poitn .x , point .y) ) }  该技术也适用于对话框和基于对的应用程序，只是不必调用 CWnd: :GetParentFrame 。 void CSampleDialog : : OnLbuttonDown (UINT nFlags, Cpoint point ) {  Cdialog : : OnLButtonDow (nFlags, goint )  //Fool dialog into thinking simeone clicked on its  caption bar .  PostMessage (WM_NCLBUTTONDOWN , HTCAPTION , MAKELPARM (point.x, point. y) ) }

yeah · 2000-07-28

我刚刚试了一下Makelparam宏，原来Delphi中也有，我以前写成MakeParam

，怪不得。 我去试试，如能用WM_LBUTTONDOWN代替，分就送上了。

yeah · 2000-07-31

接受答案了.

我已经一愁莫展，哪位帮忙搞定(关于WM_NCHITTEST)(100分)

yeah

Unregistered / Unconfirmed

hustmouse

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

Similar threads