ListBox: Hint = Item @ Mouse

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