S sdenf Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-16 #1 [red][/red]谁有movepanela1,老大给发个吧，急用啊,sdenf@163.net,告诉方法也可以啊 怎么让MOVEPANEL按着鼠标拖动啊
D dingbaosheng Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-16 #2 procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; end;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; end;
