guten Abend,
Möchte in meiner Form (BorderStyle = bsSingle) die Titelleiste ausblenden.
Habe folgenden Code gefunden, welcher unter XP auch funktioniert..
unter win2k wird jedoch die Titelleiste nicht ausgeblendet.
Wo liegt der Haken?
Delphi-Quellcode:
procedure TForm1.HideTitlebar;
var
Style: Longint;
begin
if BorderStyle = bsNone
then Exit;
Style := GetWindowLong(
Handle, GWL_STYLE);
if (Style
and WS_CAPTION) = WS_CAPTION
then
begin
case BorderStyle
of
bsSingle,
bsSizeable: SetWindowLong(
Handle, GWL_STYLE, Style
and
(
not (WS_CAPTION))
or WS_BORDER);
bsDialog: SetWindowLong(
Handle, GWL_STYLE, Style
and
(
not (WS_CAPTION))
or DS_MODALFRAME
or WS_DLGFRAME);
end;
Height := Height - GetSystemMetrics(SM_CYCAPTION);
Refresh;
end;
end;