Скачать: CL | DM;

Как убрать заголовок формы 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;

---

← →
Pattern ©   (2003-05-27 16:26) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c