Form fläche zum verschieben

[k4ni]

heyy,

Ich habe gestern angefangen meinen selfupdater zu machen und hab mein eigenes UI erstellt.
Also bei BorderStyle := bsNone und hab dann einen "X" und "_" button zum schließen und minimieren dazugemacht.
[Im anhang ist ein bild wie es aussieht]

Doch jetzt kann man das fenster ja nichtmehr verschieben. Und jetzt will ich oben dort wo die 2 buttons sind eine fläche erstellen mit der man das fenster verschieben kann. WIe geht das?


danke
k4ni

[Klaus01]

Hallo,

vielleicht geht es damit?

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  // Form1.Handle ist das Handle deiner Form die
  SendMessage(Form1.Handle, wm_SysCommand, $F012, 0);
end;

Den Schnipsel habe ich die Tage mal bekommen.

Grüße
Klaus

[Muetze1]

Da ich nicht immer wieder das gleiche schreiben will, verlinke ich mal meinen letzten Post dazu. Bitte lesen.

[k4ni]

Danke leute.
Ich wusste nicht wirklich nach was ich suchen soll.
Das von Klaus hat leider nicht funktioniert, aber das:

Delphi-Quellcode:

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
SetCaptureControl(nil);
Perform(wm_SysCommand, sc_Move or 1, 0);
end;
end;

[Luckie]

Zitat:

Zitat von k4ni

Ich wusste nicht wirklich nach was ich suchen soll.

Nach bsNone verschieben vielleicht? :roll:

[rawsoul]

Klaus' Version funktioniert bei mir allerbestens. Ich bedanke mich dafür :)