Работа с заголовком формы

← →
Алёшка1900 (2002-11-25 22:02) [0]

Здравствуйте!
Можно ли поменять шрифт, его цвет на заголовке формы, а также как мне там можно порисовать? Ещё, как отлавливать клики по разным местам заголовка?
Спасибо!

← →
apay © (2002-11-26 00:58) [1]

перехватывай сообщения WM_NCPAINT, WM_NCxBUTTONDOWN и WM_NCxBUTTONUP

← →
Игорь Шевченко © (2002-11-26 13:30) [2]

apay © (26.11.02 00:58)

Примерчик, если можно... :-)))

← →
/E © (2002-11-26 14:52) [3]

> Примерчик, если можно... :-)))

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
inherited;
Canvas.Handle := GetWindowDC(Self.Handle);
try
// Дорисовываем что надо
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;

← →
Song © (2002-11-26 14:55) [4]

2/E © (26.11.02 14:52)
ууу... зря ты это написал :-))

← →
Игорь Шевченко © (2002-11-26 15:34) [5]

/E © (26.11.02 14:52)

Не работает примерчик-то :-)

← →
Vasily Terekhov (2002-11-27 09:55) [6]

А у меня прекрасно работает!!!

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
inherited;
Canvas.Handle := GetWindowDC(Self.Handle);
try
Canvas.Brush.Color := clBlue;
Canvas.Rectangle(0,0,50,20);
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;

Особенно хорошо он работает при переключении окон, максимизации и минимизации...Вы эта...попробуйте...

Работа с заголовком формы Найти похожие ветки