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.
