Delphi中image移动代码

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = mbleft Then begin ReleaseCapture; SendMessage(Form1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end;
end;

上面这个代码插入到任何控件的MouseDown就可以让这个控件支持鼠标拖动窗体。

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。