Application.HintPause:=0;
Application.HintHidePause:=100000;
2,
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
VAR
TMP:TListitem;
begin
TMP:=listview1.GetItemAt(x,y);
if TMP<>nil then
begin
listview1.Hint:=TMP.Caption ;
if Label15.Caption<>TMP.Caption then
begin
Application.CancelHint;
Label15.Caption:=TMP.Caption ;
end;
end;
end;
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
VAR
TMP:tlISTITEM;
begin
TMP:=listview1.GetItemAt(x,y);
IF TMP<>NIL THEN
LISTVIEW1.Hint:=TMP.Caption ;
end;