Form mit Panel verschieben

[Mitternachtsfalke]

Hallo
Ich hab hier 'nen Tip wie man die Form ohne Titelleiste verschieben kann:

Code:

private
    procedure HandleLBtnDn(var msg: TMessage); message WM_LBUTTONDOWN;
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

procedure TForm1.HandleLBtnDn(var msg: TMessage);
begin
  Sendmessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, msg.LParam);
end;

kann man das auch umschreiben, dass man die Form mit einem Panel
verschieben kann, also dass praktisch das Panel die selbe
Funktion bekommt wie die Titelleiste?

'FALKE

[Mirilin]

:hi:

Aus der EDH :

Delphi-Quellcode:

procedure TMainForm.PanelHeaderBarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);
end;

mfg Tobias

[Pseudemys Nelsoni]

was bedeuten diese "$f012" ?

[SirThornberry]

ist ne zahl die bedeutet das halt verschoben werden soll

[toms]

Zitat:

was bedeuten diese "$f012" ?

SC_MOVE + 2 = $F012

[Mitternachtsfalke]

Wo muss ich den Code denn einfügen? :oops:
(Die Prozedur soll nicht bei allen Panels, sondern nur
bei einem bestimmten stadtfinden)

[Mirilin]

:hi:

Im OnMouseDown des Panels das du als Leiste haben willst.

mfg Tobias

[Mitternachtsfalke]

Danke es klappt :-D

[Pseudemys Nelsoni]

Zitat:

ist ne zahl die bedeutet das halt verschoben werden soll

und woher kennt man die? O_o