Zitat von
xZise:
himitsu: Falscher Thread?
jo, hatte ich och grad gemerkt, als ich hier meine Antwort nicht sah o.O
Du kannst es ja mal versuchen.
Delphi-Quellcode:
Procedure SetText(Const E; S: WideString);
Begin
If TObject(E) is TLabel Then Begin TLabel(E).Caption := S; Exit; End;
SendMessageW(TWinControl(E).Handle, WM_SETTEXT, 0, LongInt(PWideChar(S)));
End;
Mit dieser Prozedur kannst du einen WideString an ein
VCL-Control senden, welches von TControl abgeleitet ist, oder an ein TLabel und Nachfolger dessen.
Aber wie gesagt, du wirst bemerken, daß bei dir der angezeigt Text meißtens wieder einem in einen AnsiString umgewandelten Text entsprechen wird, da die meißten Komonenten intern die AnsiVersion sind.
Du müßtest also das entsprechende Window als WideVersion klonen und diesen Klon für das AnsiOriginal einschleußen.