Текущий архив: 2003.06.09;
Скачать: 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 вся ветка
Текущий архив: 2003.06.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
