无边框图片背景窗体自由移动

来源:互联网 发布:人工智能产业园区 编辑:程序博客网 时间:2024/04/30 02:09
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);beginif (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);end;