Einzelnen Beitrag anzeigen

cruso
(Gast)

n/a Beiträge
 
#1

Formulare ohne Titelleiste ohne "bsnone"

  Alt 31. Okt 2005, 19:28
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]
  Mit Zitat antworten Zitat