Or, du bist super, danke!!
Für alle, die auch mal das Problem haben sollten, hier der Quelltext:
Delphi-Quellcode:
procedure TForm1.lst1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var ID: Integer;
Text, neuerHint: string;
begin
ID:=lst1.ItemAtPos(Point(x,y), True);
if (ID > -1 ) AND (ID < lst1.Items.Count) then
begin
Text:=lst1.Items.Strings[ID];
//[..]Datenbankabfrage für die Adressen[...]
neuerHint:=dtm.sdqrySuche.FieldByName('strasse').AsString+ #13+#10+
dtm.sdqrySuche.FieldByName('plz').AsString+' ' +
dtm.sdqrySuche.FieldByName('ort').AsString;
if neuerHint<>lst1.Hint then
begin
lst1.Hint:=neuerHint;
SendMessage(lst1.Handle,CM_MOUSELEAVE,0,0);
SendMessage(lst1.Handle,CM_MOUSEENTER,0,0);
Application.ActivateHint(Point(x,y));
end;
end;
end;
Ich habe sicherheitshalber noch eingebaut, dass die ID kleiner als die Liste sein muss, da ich die Befürchtung hatte, dass mir das sonst knallt, wenn man außerhalb der Daten gelangt.
Bummi, dir ein absolut dickes "DANKE".