无法通过TPANEL来移动窗口，WHY???HELP ME ( 积分: 50 )

tinyliu2005 · 2005-02-19

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls; type    tpnl = class( TPanel )    private        procedure WMNCHITTEST(var Message :TWMNCHITTEST); message WM_NCHITTEST;    end;  TForm1 = class(TForm)    Memo1: TMemo;    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }    pnl:tpnl;        procedure WMNCHITTEST(var Message :TWMNCHITTEST); message WM_NCHITTEST;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} { tpnl } procedure tpnl.WMNCHITTEST(var Message: TWMNCHITTEST); var    dw:integer; begin    dw := message.YPos ;    dw := dw shl 16;    dw := dw + message.XPos; if not (csDesigning in ComponentState) then    SendMessage(application.MainForm.Handle ,WM_NCHITTEST,0,dw);  inherited; end; procedure TForm1.FormCreate(Sender: TObject); begin    pnl:=tpnl.Create(self);    pnl.Color :=clblue;    pnl.Parent :=self; end; procedure TForm1.FormDestroy(Sender: TObject); begin    pnl.Free; end; procedure TForm1.WMNCHITTEST(var Message: TWMNCHITTEST); begin    inherited;    message.Result :=htcaption;    memo1.Lines.Add(inttostr(memo1.Lines.Count +1)+': x = '+    inttostr(message.XPos )+'; y = '+       inttostr(message.yPos ) );//鼠标在pnl上移动主窗口可以收到此消息，窗口就是不能移动，不懂！ end; end.

tinyliu2005 · 2005-02-19

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls; type    tpnl = class( TPanel )    private        procedure WMNCHITTEST(var Message :TWMNCHITTEST); message WM_NCHITTEST;    end;  TForm1 = class(TForm)    Memo1: TMemo;    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }    pnl:tpnl;        procedure WMNCHITTEST(var Message :TWMNCHITTEST); message WM_NCHITTEST;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} { tpnl } procedure tpnl.WMNCHITTEST(var Message: TWMNCHITTEST); var    dw:integer; begin    dw := message.YPos ;    dw := dw shl 16;    dw := dw + message.XPos; if not (csDesigning in ComponentState) then    SendMessage(application.MainForm.Handle ,WM_NCHITTEST,0,dw);  inherited; end; procedure TForm1.FormCreate(Sender: TObject); begin    pnl:=tpnl.Create(self);    pnl.Color :=clblue;    pnl.Parent :=self; end; procedure TForm1.FormDestroy(Sender: TObject); begin    pnl.Free; end; procedure TForm1.WMNCHITTEST(var Message: TWMNCHITTEST); begin    inherited;    message.Result :=htcaption;    memo1.Lines.Add(inttostr(memo1.Lines.Count +1)+': x = '+    inttostr(message.XPos )+'; y = '+       inttostr(message.yPos ) );//鼠标在pnl上移动主窗口可以收到此消息，窗口就是不能移动，不懂！ end; end.

weekboy · 2005-02-19

不是窗体本身触发好象不行

dean_joy · 2005-02-19

procedure TForm1.Panel1MouseDown(...); begin  ReleaseCapture;  SendMessage(handle,WM_SYSCOMMAND,SC_MOVE+HTCAPTION,0); end;

青出于蓝 · 2005-02-19

同意楼上的方法。

tinyliu2005 · 2005-02-20

高手就是高手！！！！！！！！！！！！！！！！！

无法通过TPANEL来移动窗口，WHY???HELP ME ( 积分: 50 )

tinyliu2005

Unregistered / Unconfirmed

tinyliu2005

Unregistered / Unconfirmed

weekboy

Unregistered / Unconfirmed

dean_joy

Unregistered / Unconfirmed

青出于蓝

Unregistered / Unconfirmed

tinyliu2005

Unregistered / Unconfirmed

Similar threads