15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

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

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;