Содержание материала

 

 

Обычная форма:

Code:

TForm.Style:=bsNone

 

 

MDIChild форма:

Code:

setWindowLong (handle,GWL_STYLE,getWindowLong(handle, GWL_STYLE) and not WS_CAPTION);

width:=width+1;

width:=width-1;

 

  

Code:

{ 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;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!