Как сделать форму без caption?
Как сделать форму без caption?
Обычная форма:
TForm.Style:=bsNone
Автор ответа: Song
Взято с Vingrad.ru
MDIChild форма:
setWindowLong (handle,GWL_STYLE,getWindowLong(handle, GWL_STYLE) and not WS_CAPTION);
width:=width+1;
width:=width-1;
Автор ответа: rhf
Взято с Vingrad.ru
{ 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;
Взято с Исходников.ru
