void __fastcall TForm1::FormCreate(TObject *Sender)
{
...
HintWindow = new THintWindow(this);
...
}
void __fastcall TForm1::ControlMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
TPoint pt = Mouse->CursorPos;
TRect Rect;
Rect.Left = pt.x;
Rect.Top = pt.y + 20;
Rect.Right = Rect.Left + 150;
Rect.Bottom = Rect.Top + 20;
HintWindow->ActivateHint(Rect, "Hint text");
...
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
HintWindow->ReleaseHandle();
}
Постоянное отображение всплывающих подсказок (Hint)
Кто может дать ответ на вопрос как заставить хинт постоянно отображаться при наведении курсора на объект. Т.е. Сколько находится курсор на объекте столько и хинт виден. Как только курсор убран с объекта хинт исчезает.
лови wm_mousemove и там уже смотри по координатам, нужный объект или нет...
Цитата: GoldMan
Кто может дать ответ на вопрос как заставить хинт постоянно отображаться при наведении курсора на объект. Т.е. Сколько находится курсор на объекте столько и хинт виден. Как только курсор убран с объекта хинт исчезает.
Используй THintWindow:
Код: