TListbox und TBalloonHint

[Bummi]

Mhhhh, was ich hier eingestellt habe wurde mit 2010 getestet und funktioniert, geht es bei Dir auch nicht in der abgespeckten Version, oder tritt das Problem erst im Zusammenhang mit den Daten auf?

[Maya]

Ich hab meinen Beitrag oben mal aktualisiert.

[Bummi]

ist zwar etwas unsauber, aber funktioniert

Delphi-Quellcode:

          Listbox1.Hint:=ANewHint;
          Sendmessage(Listbox1.Handle,CM_MOUSELeave,0,0);
          Sendmessage(Listbox1.Handle,CM_MOUSEENTER,0,0);
          Application.ActivateHint(Point(x,y))

[Maya]

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".

[Bummi]

never mind ...