Einzelnen Beitrag anzeigen

Benutzerbild von Mitternachtsfalke
Mitternachtsfalke

Registriert seit: 3. Dez 2003
54 Beiträge
 
Delphi 6 Enterprise
 
#1

Form mit Panel verschieben

  Alt 28. Dez 2003, 11:42
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
Im Falle eines Falles ist richtig fallen alles
  Mit Zitat antworten Zitat