Hallo Pfoto,
swoeit war ich doch auch schon ,allerdings zeigts dann immer, wenn ich auf die Control gehe die Infobox an,
ich möchte aber nur wenn man über ein Objekt geht.
Und dann hab ichs mir so gedacht:
Delphi-Quellcode:
procedure Tmainform.objectlistMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var index : integer;
val : string;
begin
index := objectlist.ItemAtPos(Point(x,y),true);
if (index > -1) then begin
objectlist.ShowHint := true;
try
if (objectlist.Items[objectlist.ItemIndex] = objectlist.Items[objectlist.ItemAtPos(Point(X, Y), True)]) then
objectlist.Hint := objectlist.Items[index]
else
objectList.ShowHint := false;
finally
objectlist.ShowHint := false;
end;
end;
end;
aber klappt eben nich...bin mir nur nich im klaren, wieso?