delphi 動態以 ListBox 的Item 為 Hint

procedure TForm1.ListBox1MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
var lstIndex : Integer ;
begin
with ListBox1 do begin
lstIndex:=SendMessage(Handle,
LB_ITEMFROMPOINT,
0, MakeLParam(x,y)) ;
if (lstIndex >= 0) and
(lstIndex <= Items.Count) Then
Hint := Items[lstIndex]
else
Hint := ''
end;
end;
end.