ListBox: Hint = Item @ Mouse

[SvenLittkowski]

Hi,

ich hatte dieses Problem schon in einem anderen Thread angesprochen: ich will dafür sorgen, daß meine ListBox als Hint immer den Inhalt des Items anzeigt, über welchem die Mouse sich gerade befindet. Der Grund ist, daß einige dieser Items die Breite der ListBox überschreiten. Die Hints sind also quasi eien "Pflicht", um meinem Benutzern zu helfen.

Klar hatte ich auch schon hier im Forum etwas recherchiert mittels der Suchfunktion. Ich bin dabei auf einen Code gestoßen, der vielversprechend war. Den habe icgh eingebaut, und tatsächlich, mein Programm wird kompiliert, und läuft sogar! Und weder mein Schreibtisch fängt Feuer, noch vergeht dise Seite der Erde in einem atomaren Feuerball! Aber leider passiert auch nichts von dem, was eigentlich passieren soltle: kein Hint erscheint bei MouseOver über jedem Item, kein Item-Inhalt im Hint. Nur der ganz normale Standard-Hint, den ich für diese Listbox bereits definiert hatte.

Nachstehend der Code. Was mache ich falsch?
Und hier der Ursprung des Codes: http://www.delphipraxis.net/15882-on...box-items.html
Die dortigen Korrekturen kann ich mangels Erfahrung leider nicht umsetzen.

Code:

procedure TAlpha.ListBoxFromMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
 ID:           Integer;
 OriginalHint: string;
begin
 with ListBoxFrom do
 begin
  OriginalHint:=Hint;
  ID:=ItemAtPos(Point(x,y),False);
  if (ID<=Items.Count-1) then Hint:=Items.Strings[ID]
  else Hint:='';
  if Hint<>OriginalHint then Application.CancelHint;
 end;
end;

KORREKTUR: Es funktioniert. Nur Itemstrings mit Sonderzeichen funktionieren nicht (Hint wird nicht angezeigt).

[Deep-Sea]

Ungefähr so?
Anhang 33209
Wenn ja: Das ist eine ganz normale ListView (ViewStyle := vsList, ShowHint := True).
Code musst du dafür keinen schreiben :-D

[SvenLittkowski]

Hi. DeepSea, danke für Deine Antwort.

Ich hatte etwas falsch gemacht aber inzwischen korrigiert. Bei MouseOver werden nun die ItemStrings als Hint angezeigt. .. :-)

Nur - enthält ein ItemString Sonderzeichen, wird KEIN Hint angezeigt. Wer kann helfen? Ich benutze Unicode: griechischer Zeichensatz. Die ListBoxen sind TTntListBox-Objekte, die mit Unicode funktionieren.

[SvenLittkowski]

Es klappt soweit, daß Hints mit dem jeweiligen Item angezeigt werden. Nur - enthält so ein ItemString Sonderzeichen, wird KEIN Hint angezeigt. Wer kann helfen? Ich benutze Unicode: griechischer Zeichensatz. Die ListBoxen sind TTntListBox-Objekte, die mit Unicode funktionieren.

Code:

procedure TAlpha.ListBoxFromMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
 ID:          Integer;
 OriginalHint: string;
begin
 with ListBoxFrom do
 begin
  OriginalHint:=Hint;
  ID:=ItemAtPos(Point(x,y),False);
  if (ID<=Items.Count-1) then Hint:=Items.Strings[ID]
  else Hint:='';
  if Hint<>OriginalHint then Application.CancelHint;
 end;
end;

Meine ListBox ist vom Typ TTntListBox. Deren Komponenten arbeiten mit Unicode.

Wie muß dieser Code geändert werden, damit der Hint auch dann erscheint (und mit dem ItemString), wenn jener ItemString in Unicode gehalten ist und Sonderzeichen aufweist?

[SvenLittkowski]

Das Problem ist gelöst. Ich habe in diesen Funktionen den String als WideString redefiniert, nun klappt's! :-)

Dieser Thread kann nun als "gelöst" markiert werden.