Label mit hartem Bruch

[nailor]

Ich will ein Label mit Zeilenumbruch, aber nicht so wie bei WordWrap, bei Leerzeichen ein Umbruch, sondern egal was da ist.

[Ronny Grabo]

Hallo,
folgender Vorschlag:

Delphi-Quellcode:

label1.caption:='So funktioniert'+chr(13)+'es';

chr(13)=Zeilenumbruch

[nailor]

ich weiß aber nicht wohin der umbruch muss

[Ronny Grabo]

Hallo,

folgender Vorschlag:

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
var tmp0:String;
    tmpint:integer;
begin
//String zuweisen
tmp0:='Das ist mein Label';
{Stringlänge von tmp0 ermitteln und durch zwei rechnen
anschließend runden und Ergebnis an tmpint als Integer übergeben.} 
tmpint:=round(strlen(PChar(tmp0))/2);
//chr(13) an errechneter Position einfügen
insert(chr(13),tmp0,tmpint);
//String mit Zeilenumbruch sichtbar machen
label1.Caption:=tmp0;
end;

Hoffe daß ich helfen konnte.

Gruß Ronny.