| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопрос по Hint

Volly ©   (2002-12-30 14:18:00) 

Как сделать нестандартный Hint?

---

Volly   (2003-01-03 14:55:00) [1]

А как? :-)

---

Gamar   (2003-01-03 12:37:00) [2]

>Volly

Отобрази битмап на канве и все...

---

Volly   (2003-01-03 11:40:00) [3]

А как полностью перерисовать Hint (добавить картинку типа Bitmap и т.п.)?

---

Skier   (2002-12-30 15:09:00) [4]

>Volly
В книге у Пачеко и Тейксейры есть пример хинта в форме эллипса
(с подробным описанием...);

---

Roma   (2002-12-30 14:50:00) [5]

Volly © (30.12.02 14:18)

Написать свой класс окна подсказки от THintWindowClass и присвоить его HintWindowClass. Примерно так:

unit MyHint;

interface

type
TMyHintWindowClass = class(THintWindow)
public
{...}
procedure Paint; // скорее всего, придется
// переписать не только Paint
{...}
end;

implementation

{...}
procedure TMyHintWindow.Paint;
begin
{...}
end;
{...}

initialization

HintWindowClass := TMyHintWindow;

end.

Все подробности можно в FM узнать, по F1...

---

Наверх