WideStrings in der InputBox ausgeben?

[OrNEC]

Hallo,

ich möchte Unicode WideStrings in einer InputBox ausgeben:

Delphi-Quellcode:

procedure TForm1.Label2Click(Sender: TObject);
var str: WideString;
begin
str:=WideInputBox(_('Name ändern'), _('Name:'), Label2.Caption);
if Length(str)>35 then
  Label2.Caption:=Copy(str, 1, 35)
else
  Label2.Caption:=str;
end;

aber nur der String "Name ändern" wird richtig dargestellt, der String "Name" hingegen erscheint als Striche, also so "IIII".

Hat jemand für mich nen Tipp wie man's löst? Danke!

[Bernhard Geyer]

Ich würde darauf Tippen das der falsche Font genommen wird der keine passenden Unicodezeichen beinhaltet.

[OrNEC]

Genau... hab folgende Zeile in OnCreate eingefügt und es funkt. :thumb:

Delphi-Quellcode:

Graphics.DefFontData.Name := 'Tahoma';

Weiß du vielleicht wie ich noch die Form.Caption Unicodefähig mache? Irgendwie gelingt es mir nicht.

[himitsu]

Nutzt du TForm der VCL oder die unicodefähige TNT-Variante?
Bei Ersterem geht es natürlich nicht.

[OrNEC]

Ja ich hab die TNT-Variante, hab vergessen es zu erwähnen. Hab schon alles Unicodefähig gemacht, außer Form.Caption und der ComboBox. Da kommt ich nicht weiter.

[OrNEC]

Push

[fkerber]

Hi!

Bitte nicht innerhalb von 24h Stunden pushen!


Liebe Grüße,
Frederic