بالاخره از یه Panel برای شبیه سازی hint استفاده کردم به همراه تنظیم MouseMove گروهی:
procedure TNetGifForm.BigFootCheckMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
//äãíÊæäãå ãÔ˜á Ñæ åäÇã ÝÚÇá ÈæÏä äÌÑå ÊÕæíÑ Íá ˜äå
{sender:=TObject(WindowFromPoint(Point(Mouse.Curso rPos.X,Mouse.CursorPos.Y)));
Application.ActivateHint(Mouse.CursorPos);}
if NetGifForm.Active=false then
Exit;
//Hint ÑæÔí ÈÑÇí ÔÈíå ÓÇÒí
{*ÞáÇÈí äãí ãæäå Hint ÊÇ ÇäÊåÇí ÓãÊ ÑÇÓÊ äÌÑå ÑÝÊå ÌÇíí ÈÑÇí äãÇíÔ Panel1 æä*}
HintPanel.Caption:=TWinControl(Sender).Hint;
HintPanel.Left:=TWinControl(Sender).Left+TWinContr ol(Sender).Width;
HintPanel.Top:=TWinControl(Sender).Top+TWinControl (Sender).Height;
HintPanel.Width:=NetGifForm.Canvas.TextWidth(HintP anel.Caption)+10;
HintPanel.Color:=Application.HintColor;
HintPanel.Show;
end;
procedure TNetGifForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
HintPanel.Visible:=false;
end;