您的位置:首页 > 编程语言 > Delphi

delphi 无标题栏时,窗体跟随其他控件移动的方法

2011-12-13 13:15 405 查看
procedure image1.onMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: