Удаление заголовка у дочерней MDI-формы

Written on 18 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Решение 1

Мы смогли удалить область заголовка дочерней MDI-формы, сделав следующее:

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;

В дочерних MDI-формах выставление в свойстве BorderStyle флага bsNone НЕ убирает заголовок (это упоминается в файлах помощи). Попробуйте сделать так:

Procedure tMdiChildForm.CreateParams( var Params : tCreateParams ) ;
Begin

Inherited CreateParams( Params ) ;

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

End ;