Form per Drag&Drop bewegen

[MrKnogge]

@Airblader
Ultimator wollte damit nur auf unsere hübsche Forn-Suche aufmerksam machen.

@Ultimator
Nich traurig sein, wenn dass niemand verstanden hat, wobei man, wenn du schon verlinkst, nun wirklich ein Resultat erwarten könnte.

Aber bevor ihr beiden euch noch die Köpfe einschlagt ,
poste ich mal schnell den Source:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE+1,0);
    end;
end;

gruss