MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0); //可以是其它元件:BtnExit.Perform(....);//button
end;
可视元件拖动
最新推荐文章于 2007-01-07 21:23:00 发布