您的位置:首页 > 其它

Panel 拖动

2016-01-09 00:00 190 查看
摘要: Panel 拖动

procedure TFormMain.pnlEntryFieldMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

SC_MANIPULATE: Word;

begin

if gMovingEntryPanel then begin

SC_MANIPULATE := $F009;

ReleaseCapture;

grdpnl1.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);

end;

end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  Panel 拖动