Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа с заголовком формы [D4, Win95/98]

Алёшка1900 © (2002-11-25 22:02:00)
Здравствуйте!
Можно ли поменять шрифт, его цвет на заголовке формы, а также как мне там можно порисовать? Ещё, как отлавливать клики по разным местам заголовка?
Спасибо!

Игорь Шевченко (2002-11-27 10:28:00) [1]
Особенно хорошо он работает при переключении окон, максимизации и минимизации...Вы эта...попробуйте...

Vasily Terekhov (2002-11-27 09:55:00) [2]
А у меня прекрасно работает!!!

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-26 15:34:00) [3]
/E © (26.11.02 14:52)

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

Song (2002-11-26 14:55:00) [4]
2/E © (26.11.02 14:52)
ууу... зря ты это написал :-))

/E (2002-11-26 14:52:00) [5]

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

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;

Игорь Шевченко (2002-11-26 13:30:00) [6]
apay © (26.11.02 00:58)

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

apay (2002-11-26 00:58:00) [7]
перехватывай сообщения WM_NCPAINT, WM_NCxBUTTONDOWN и WM_NCxBUTTONUP

Наверх

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