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.

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

WideStrings in der InputBox ausgeben?

WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

AW: WideStrings in der InputBox ausgeben?

Forumregeln

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 AW: WideStrings in der InputBox ausgeben? 1. Aug 2010, 20:04 Ich würde darauf Tippen das der falsche Font genommen wird der keine passenden Unicodezeichen beinhaltet. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#3 AW: WideStrings in der InputBox ausgeben? 1. Aug 2010, 21:09 Genau... hab folgende Zeile in OnCreate eingefügt und es funkt. Graphics.DefFontData.Name := 'Tahoma'; Weiß du vielleicht wie ich noch die Form.Caption Unicodefähig mache? Irgendwie gelingt es mir nicht. Geändert von OrNEC ( 1. Aug 2010 um 21:15 Uhr)
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.157 Beiträge Delphi 12 Athens	#4 AW: WideStrings in der InputBox ausgeben? 1. Aug 2010, 21:25 Nutzt du TForm der VCL oder die unicodefähige TNT-Variante? Bei Ersterem geht es natürlich nicht. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests Geändert von himitsu ( 2. Aug 2010 um 06:57 Uhr)
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#5 AW: WideStrings in der InputBox ausgeben? 1. Aug 2010, 21:31 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.
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#6 AW: WideStrings in der InputBox ausgeben? 2. Aug 2010, 14:16 Push
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#7 AW: WideStrings in der InputBox ausgeben? 2. Aug 2010, 14:19 Hi! Bitte nicht innerhalb von 24h Stunden pushen! Liebe Grüße, Frederic Frederic Kerber
	Zitat