Как самому сделать всплывающую подсказку (Hint)

← →
oleg_SYS © (2004-04-12 19:47) [0]

Например, при движении по Image нужно сделать, чтоб в виде Hint`a высвечивались координаты мыши. Но хинты показываются только тогда, когда проходит время при простое курсора. Как самому создать хинт или хотя бы заставить высветиться хинту какой-либо компоненты без простоя мыши?

← →
clickmaker © (2004-04-12 20:12) [1]

THintWindow
ActivateHint

← →
hgd (2004-04-12 20:55) [2]

А как всем этим пользоваться. Воот надо, чтобы hint не исчезал на button

← →
hgd (2004-04-12 21:30) [3]

Кто знет как этим воспользоваться для создания долгопоказывающегося hint-а.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Point: TPoint; begin GetCursorPos(Point); Image1.Hint := IntToStr(Point.X) + " " + IntToStr(Point.Y); Application.ActivateHint(Point); end;

Как самому сделать всплывающую подсказку (Hint) Найти похожие ветки