| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TForm [D6, Win2k]

Vlad2 ©   (2002-09-26 06:43:00) 

Здравствуйте !
Подскажите, пожалуйста, как удалить Caption у формы (TForm). Этот вопрос был в форуме, но я никак не нашел. Использовать form.BorderIcons := []; нежелательно. Под Caption здесь понимается синенькая полоска окна с системными кнопочками.

---

Слесарь Матерящийся   (2002-09-26 13:07:00) [1]

Ещё выриант удаления Caption -- исключить эту область из региона окна.

---

liho26   (2002-09-26 12:58:00) [2]

Можно еще и так:


Private
procedure CreateParams(var Params: TCreateParams); override;


implementation

{$R *.dfm}


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

Этот код сносит напрочь и рамку (в смысле - заголовок) и бордюр вокруг окна (это по желанию)

---

Vlad2   (2002-09-26 07:50:00) [3]

> Esu
Отлично. отлично. отлично.

---

Esu   (2002-09-26 07:37:00) [4]

procedure TForm1.FormCreate(Sender: TObject);
var
FSizeCaption: Integer;
begin
FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
SetWindowLong(Form1.Handle, GWL_STYLE, GetWindowLong(Form1.Handle, GWL_Style) and not WS_Caption);
Form1.Height:=Form1.Height - FSizeCaption;
end;

---

Vlad2   (2002-09-26 07:35:00) [5]

Да, да "Только форма необъемная будет." Я пытался создать потомок TPanel, но тогда все управляющие элементы "формы без заголовка" приходится создавать в runtime, - неудобно. Как бы отменить прорисовку заголовка у form: TForm ?

---

andrey_pst   (2002-09-26 07:21:00) [6]

>>Кажется так тоже можно.
>>Form.BorderStyle := bsNone
Только форма необъемная будет.

---

Viktor Kushnir   (2002-09-26 07:05:00) [7]

Кажется так тоже можно.
Form.BorderStyle := bsNone

---

Наверх