Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Aug 2006
Aber nur in den Windows ohne XP-Style, mit 'nem Style sind das ja kleine Bildchen,
ansonsten sind ja fast alle kleinen (meist schwarzen/einfarbigen) Grafigen im alten Windows-Style aus Marlett, oder irgendwo anders her ^^
Zumindestens Marlett (Arial, Courier, New Courier, Small Fonts, Times New Roman, ...) kann man also "guten" Geissens verwenden, weil das einer der wenigen Fonts sein wird,...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
1. Aug 2006
jo, hatte ich och grad gemerkt, als ich hier meine Antwort nicht sah o.O
Du kannst es ja mal versuchen.
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)));