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

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

← →
Алёшка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;

---

← →
Игорь Шевченко ©   (2002-11-27 10:28) [7]

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

---

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

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



Память: 0.46 MB
Время: 0.014 c