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?