예전에 트리뷰에서와 같이 Application.ActivateHint를 사용하여 MouseMove이벤트로 항상 떠있게 해보았습니다.
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
SListItem : TListItem;
CursorPos : TPoint;
begin
ListView1.ShowHint := False;
SListItem := ListView1.GetItemAt(X,Y);
if SListItem <> nil then begin
ListView1.Hint := SListItem.Caption;
ListView1.ShowHint := True;
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
SListItem : TListItem;
CursorPos : TPoint;
begin
ListView1.ShowHint := False;
SListItem := ListView1.GetItemAt(X,Y);
if SListItem <> nil then begin
ListView1.Hint := SListItem.Caption;
ListView1.ShowHint := True;
CursorPos:= Mouse.CursorPos;
Application.ActivateHint(CursorPos);
end;
end;
hsr/////////////////////////////////////////////