procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//移动窗体,本省窗体没有title,不能移动
if (ssLeft in Shift) then
begin
ReleaseCapture;
SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
end;
Y: Integer);
begin
//移动窗体,本省窗体没有title,不能移动
if (ssLeft in Shift) then
begin
ReleaseCapture;
SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
end;