Delphi-Quellcode:
procedure TForm1.CreateParams(var Params: TCreateParams); // override
begin
inherited;
Params.Style := WS_POPUP or WS_THICKFRAME;
Params.ExStyle := WS_EX_TOOLWINDOW;
end;
Da ist in Windows 10 und 11 oben so ein kleiner Rand. Unter Windows 7 war der Rahmen umlaufend gleich groß.