Hilfe - Fenster mit Maus verschieben?

[axelf98]

Hallo!

Wie kann ich ein Form mit einem Panel,Shape,etc mit der Maus so verschieben, wie das die obere Leiste tut? Ich will nämlich ein Porgramm schreiben, dass nicht die Standardleiste benutzt, es soll aber trotzdem verschiebbar sein!

Kann mir jemand helfen?

[Matze]

Ins OnMouseDown:

Delphi-Quellcode:

begin
  if (Button = mbLeft) then
  begin
    Application.ProcessMessages;
    ReleaseCapture;
    Perform(WM_SYSCommand, $F012, 0);
  end;

[axelf98]

Hey, danke, funktioniert!