Winampmässiges "EasyDrop"

[MrKnogge]

Zitat von MiniKeks:

Zum Umherschieben der form. Wie geht das?

Ich schätz mal du meinst das:

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