Если в дочерней форме 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;

 

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;

 

 

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

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

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

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