procedure TfrmServerInfo.Image1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: integer);
begin
inherited;
if (ssleft in Shift) then
begin
ReleaseCapture;
Perform(wm_syscommand, $F012, 0);
end;
end;
转载于:https://www.cnblogs.com/bingege/archive/2010/11/14/1876803.html