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

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

Заголовок формы [D7]

UserUserov ©   (2004-09-26 17:57:00) 

Можно ли иметь доступ к 'панели' с Caption-ом, скажем изменить
шрифт, цвет и добавить компонент? Заране благадарен.

---

@BraIN   (2004-09-27 00:33:00) [1]

Проще убрать заголовок.


public
   procedure CreateParams(var Params: TCreateParams); override;
...
procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 with Params do
   Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;


---

Defunct   (2004-09-26 18:55:00) [2]

Поставьте свою панельку разрисуйте ее как хотите, поставте на нее кнопку и изображением крестика для выхода из программы, за нее и перемещайте форму. Дешево и сердито.

---

UserUserov   (2004-09-26 18:51:00) [3]

>BorderStyle =bsNone
Тогда я не смогу перемещать это чудо и мне
придется обрабатывать все события самому

---

Defunct   (2004-09-26 18:46:00) [4]

> как?

BorderStyle = bsNone

---

UserUserov   (2004-09-26 18:43:00) [5]

как?

---

Defunct   (2004-09-26 18:36:00) [6]

А можно вообще убрать и сделать свою.
Смотря, что вам больще подходит.

---

DVM   (2004-09-26 18:00:00) [7]

Если имеется ввиду строка заголовка окна, то его можно отрисовать вручную.
WM_NCPAINT, WM_NCACTIVATE ...

---

Наверх