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

Как создать собственный заголовок?   Найти похожие ветки 

← →
Brutus   (2003-10-17 13:04) [0]

Подскажите, как создать собственный заголовок окна. Т.е. я устанавливаю borderstyle := bsnone и делаю заголовок, к примеру с помощью картинки. Но как сделать что бы картинка действовала как заголовок?

---

← →
Игорь Шевченко ©   (2003-10-17 13:11) [1]

Обрабатывать сообщение WM_NCHITTEST

procedure TMyForm.WMHCHitTest (var Message : TWMNCHitTest);
begin
if PtInRect (CaptionRect,
ScreenToClient(SmallPointToPoint(Message.Pos))) then
Message.Result := HTCAPTION
else
inherited;
end;

Где CaptionRect - прямоугольник твоей картинки

---

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

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



Память: 0.44 MB
Время: 0.023 c