Delphi - база знаний


Как сделать форму без 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



Начало  Назад  Вперед