- This topic has 3 replies, 2 voices, and was last updated 15 years ago by
.
-
Posts
-
Hello
You want to have unskinned borders and title of form? Or you want to remove them?
You can use sSkinProvider.DrawNonClientArea in first case or Form1.BorderStyle := bsNone in second case.
I want a skinned (Sizeable) borders and no titlebar. A normal window that is sizeable and has extended borders but does not have a titlebar.
You can do this with AlphaSkins turned off using the the following code. If you turn on AlphaSkins it paints the titlebar and does not work correctly.
procedure TForm1.btnShowTitlebarClick(Sender: TObject);
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;
procedure TForm1.btnShowTitlebarClick(Sender: TObject);
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 or WS_CAPTION or
WS_BORDER);
bsDialog: SetWindowLong(Handle, GWL_STYLE,
Style or WS_CAPTION or DS_MODALFRAME or WS_DLGFRAME);
end;
Height := Height + GetSystemMetrics(SM_CYCAPTION);
Refresh;
end;
end;
- You must be logged in to reply to this topic.