Formulare ohne Titelleiste ohne "bsnone"

[cruso]

Wenn man ein Formular ohne Titelleiste anzeigen will, dann fällt einem wohl zuerst die BorderStyle-Eigenschaft bsnone ein. Allerdings sieht ein solches Fenster sehr trostlos aus, weil ein Rahmen fehlt. Mit dem folgenden Code kann man die Titelleiste ausblenden ohne bsnone zu benutzen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, (GetWindowLong(Handle, GWL_STYLE) and not WS_Caption));
  ClientHeight := Height;   //Ist besser so ;-)
  Refresh;
end;

Wichtig: Die BorderStyle-Eigenschaft darf auf keinen Fall bsnone sein, denn sonst wäre die Mühe umsonst!

[edit=Chakotay1308]Ein bisschen Ordnung muss auch im Source sein... Mfg, Chakotay1308[/edit]