Удаление заголовка у дочерней 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]