Как сделать форму без caption?
Обычная форма:
TForm.Style:=bsNone
Автор ответа:
Song
MDIChild форма:
setWindowLong (handle,GWL_STYLE,getWindowLong(handle, GWL_STYLE)
and
not
WS_CAPTION);
width:=width+
1
;
width:=width-
1
;
Автор ответа:
rhf
{ Private Declaration }
procedure
CreateParams(
var
Params : TCreateParams);
override
;
...
procedure
TForm1.CreateParams(
var
Params : TCreateParams);
begin
inherited
Createparams(Params);
with
Params
do
Style := (Style
or
WS_POPUP)
and
not
WS_DLGFRAME;
end
;
Брекеты цао
театр больших бенефис