Hi,
hab das ganze jetzt so eingebunden und es hat auch (bis dato) geklappt...
Aber jetzt geht es nicht mehr:
Er kommt zwar in die Funktion rein, wenn ich ein MouseMove über einem
Element mache, aber es geht NIX mehr auf, keine gelbe Box, nix...
wenn ich mir an dieser Stelle den HINT loggen laß, klappt
das ganze einwandfrei...
woran kann das liegen, dass kein Hint aufgeht?
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);
objectlist.ShowHint:= (Index <> -1) and (Index = objectlist.ItemIndex);
if (objectlist.ShowHint) then begin
//Hier kommt er rein
objectlist.ShowHint := true;
objectlist.Hint := 'HINT';
//Logger.add('HINT');
end;
end;
Danke!!!
winx