Drag & Drop von einer Anwendung

[MrKnogge]

Besser wäre dann:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(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;

Sollte dies das gesuchte sein, dann ist der Titel irgendwie unglücklich gewählt, hat doch nichts mit Drag&Drop zu tun