Как создать собственный заголовок?

← →
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 - прямоугольник твоей картинки

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