怎样拖动窗体(50分)

X

xiayang1230

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #1

在窗体上有一个panel怎样拖动panel连窗体也一起拖动

 

L

LoveStory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #2

panel的MouseDown事件中：
; ReleaseCapture;
; Perform(WM_SYSCOMMAND, $F012, 0);

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #3

在Panel的OnMouseDown事件中加入：
;ReleaseCapture;
;SendMessage(handle,wm_SysCommand,$F012,0);

 

X

xiayang1230

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #4

接受答案了.

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #5

private
procedure wmNCHITTEST(var msg:twmnchittest);message WM_NCHITTEST;
....
end;

procedure tform1.wmNCHITTEST(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;