Fórum Hint on MouseMove #319648

Caros,
adaptei um codigo para ListBox, porem, nao mostra o Hint ´Apenas´ no
primeiro item do listbox.

ja mandei mostrar a posicao quando passa o mouse sobre o primeiro
item, esta correto (as posicoes .X e .Y), porem, nao mostra.

o codigo é:

procedure TfrmLogin.listConexoesMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
pt : TPoint;
begin
pt.X := X;
pt.Y := Y;
listConexoes.Hint := ´´;
try
begin
listConexoes.Cursor := crHandPoint;
listConexoes.Hint := listConexoes.Items[listConexoes.ItemAtPos(pt, true)];
Application.ActivateHint(pt);
end;
except
listConexoes.Cursor := crDefault;
end;
end;

Obrigado,
abracos.