Советы по Delphi

         

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


Решение 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;

Решение 2

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

    Procedure tMdiChildForm.CreateParams( var Params : tCreateParams ) ;
Begin
Inherited
CreateParams( Params ) ; Params.Style := Params.Style and (not WS_CAPTION) ; End ;

[000167]



Содержание раздела