Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND,$F012,0);
end;
end;
Der Code würde das gewünscht bewirken aber berechnet wird da natrülich von dir nichts. Der Code stammt von DeddyH.
Für den Algorithmus denn du machen willst hilft dir eventuell ClientToScreen.