Form ohne Borderstyle beweglich machen

[Phil125]

Ja der titel sagt eigentlich alles gibt es eine möglichkeit trotz
Borderstyle=none die form beweglcih zu machen ?

[jaenicke]

Das musst du selbst mit OnMouseXXX programmieren (dazu gab es auch schon Beispiele).

// EDIT:
Sogar in der Library... :roll:
http://www.delphipraxis.net/internal...t.php?p=699649

[Flips]

Dazu gabs doch erst zuletzt etwas...
*Klick*

[Hobby-Programmierer]

Ich habe immer dies benutzt.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

[Fussball-Robby]

Zitat:

Zitat von Hobby-Programmierer

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Wobei bei dieser Lösung die Abfrage Button = mbLeft unnötig ist, da dieses Verschieben sowieso nur auf die linke Maustaste reagiert.

Gruß

[Hobby-Programmierer]

Jap, stimmt schon. Ich habe den Code aus einer meiner Programme kopiert und da muss ich auch auf die rechte Maustaste reagieren.

LG Mario