Как убрать заголовок в дочерней форме MDI?

 Previous  Top  Next

    
 

 

Если в дочерней форме MDI установить BorderStyle в bsNone, то заголовок формы не исчезнет. (Об этом сказано в хелпе). А вот следующий пример решает эту проблему:

Code:

type

... = class(TForm)

{ other stuff above }

   procedure CreateParams(var Params: TCreateParams); override;

{ other stuff below }

end;

 

...

 

procedure tMdiChildForm.CreateParams(var Params: tCreateParams);

begin

inherited CreateParams(Params);

Params.Style := Params.Style and (not WS_CAPTION);

end;

 

 

 

©Drkb::00483

Взято из http://forum.sources.ru

 

 

 

Code:

type

TForm2 = class(TForm)

   { другой код выше }

   procedure CreateParams(var Params: TCreateParams); override;

   { другой код ниже }

end;

 

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.Style := Params.Style and not WS_OVERLAPPEDWINDOW or WS_BORDER

end;

 

 

 

 

©Drkb::00484

       

Взято с http://delphiworld.narod.ru