Как убрать заголовок формы MDIChild?

← →
Pattern © (2003-05-25 19:32) [0]

Есть главная форма, на которой расположена слева панель (Align := alLeft), вверху находится ToolBar, внизу StatusBar. На оставшемся поле (но не во всём) открывается дочерняя форма. И когда дочерней форме ставишь BorderStyle := bsNone и отключаешь все системные иконки (BorderIcons), форма всё равно открывается с заголовком. Вариант открывать её со свойством WindowState := wsMaximized не подходит. Как сделать так, чтобы дочернее окно открывалось без заголовка? Спасибо за помощь.

← →
Pattern © (2003-05-26 17:47) [1]

Не уже ли этот вопрос не решабелен? d;(

← →
___Nikolay (2003-05-27 07:16) [2]

Попробуй так:

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;

Рулеzzz!!! Это сработало как надо. Хочу прсто добавить для тех, кто захочет использовать этот метод, что код procedure CreateParams(var Params: TCreateParams); override; нужно добавить в раздел public, и весь это код писать естесственно в дочерней форме.

Как убрать заголовок формы MDIChild? Найти похожие ветки