Wie ein Form ohne Caption erstellen?

[Cypheros]

Ok, ein Form mit BorderStyle := bsNone entfernt den Caption-Area aber es sieht nicht wie ein normales Fenster unter Windows 11 aus.

Screenshot 2025-09-03 223803.jpg

Es ist kein Rand und keine Rundung vorhanden wie unter Windows 11 üblich.

Screenshot 2025-09-03 224142.jpg

Wie macht man es richtig, dass ein Fenster im üblichen Stil entsteht?

[himitsu]

Es gibt bestimmt einen "guten" Weg,

aber wenn nichts hilft
Thema: Clipping (Region)
https://www.delphi-treff.de/tipps-tr...ormularformen/ (auch hier im Forum zu finden)
https://stackoverflow.com/questions/...rners-in-win32



Die Idee einfach mal bei CreateWindow, bzw. CreateWindowEx nach round oder edge zu suchen, brachte nichts.

[Cypheros]

Danke für die Vorschläge aber einfach nur ein Fenster mit einem runden Rand zu erstellen ist kein Problem. Seit Jahre bekannt.

Doch ist das nicht der aktuelle Windows-Stil sondern nur eine "Emulation". Warum verschwindet der unter Windows 11 übliche runde Rand, wenn man BorderStyle := bsNone setzt und wird rechteckig?

Kann es sein, dass inzwischen Borderstyles existieren, die Delphi nicht kennt?

[himitsu]

Warum?

Der gehöert zum jeweiligen Window-Stil (der Borders+Header) und den hast du ja entfernt/deaktiviert.



Vermutung: anstatt den Window-Stil zu ändern, nur in das Zeichnen des NonClient-Bereich eingreifen.

[jaenicke]

Wenn du den Rahmen entfernst (bsNone), hast du eben auch keinen Rahmen mehr. Wenn du nur die Titelleiste entfernen möchtest, musst du auch nur diesen Teil (WS_CAPTION) entfernen, den BorderStyle aber auf bsSingle oder bsSizeable lassen:

Delphi-Quellcode:

  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
  SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);

[Cypheros]

Danke für den Versuch aber auch hier verschwindet der Rand und das Fenster wird rechteckig.

Habe inzwischen eine Möglichkeit gefunden über CustomTitleBar.

Delphi-Quellcode:

procedure TPopupForm.FormCreate(Sender: TObject);
begin
  TitleBarPanel1 := TTitleBarPanel.Create(self);
  TitleBarPanel1.Parent := self;
  CustomTitleBar.SystemHeight := False;
  CustomTitleBar.Height  := 0;
  CustomTitleBar.Control := TitleBarPanel1;
  CustomTitleBar.Enabled := True;
end;

Auf diese Art sieht das Fenster aus, wie gewünscht.

Screenshot 2025-09-04 091413.jpg