Как сделать форму без 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
Содержание Назад Вперед