Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Neue Zeile wenn am Ende des Labels angekommen? (https://www.delphipraxis.net/33854-neue-zeile-wenn-am-ende-des-labels-angekommen.html)

malo 13. Nov 2004 18:50


Neue Zeile wenn am Ende des Labels angekommen?
 
Und zwar hab ich ja ein Quizprogramm angefangen zu schreiben. Allerdings hab ich jetzt das Problem, dass meine Frage zu lang für mein Label ist.

Kleine Information zum Label:

Ich habe "AutoSize" auf false gestellt und dann die Größe etwas verändert. Das Label ist jetzt ein Balken, der auf meinem Form von rechts nach links geht.

Alignment und Layout hab ich auf Center gestellt. Die Schrift ist also genau mittig vom Label.

Jetzt will ich, dass, wenn die Schrift so lang ist, dass sie bis ans Ende des Labels geht, automatisch eine neue Zeile anfängt. Ist das irgendwie möglich?

alcaeus 13. Nov 2004 18:53

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Hi malo,

ein Label unterstützt diese Funktion AFAIK nicht. Mit dem TStaticText (palette "Zusätzlich") sollte es aber ohne Probleme möglich sein.

Greetz
alcaeus

Jens Schumann 13. Nov 2004 18:58

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Zitat:

Zitat von malo
...
Jetzt will ich, dass, wenn die Schrift so lang ist, dass sie bis ans Ende des Labels geht, automatisch eine neue Zeile anfängt. Ist das irgendwie möglich?

Ich glaube es reicht dann die WordWrap Eigenschaft auf True zu setzen.

ReDoX 13. Nov 2004 19:00

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Hi mache es doch einfach so

Delphi-Quellcode:
if length(label1.Caption) >= 10 then
label1.Caption:='Erster Teil'+#13+'Zweiter Teil';
Mfg MrScholz

malo 13. Nov 2004 19:05

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Zitat:

Zitat von alcaeus
Hi malo,

ein Label unterstützt diese Funktion AFAIK nicht.

Hehe, von wegen, WordWrap auf true geht schon ^^

Danke @Jens :mrgreen:

Robert_G 13. Nov 2004 19:05

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Zitat:

Zitat von MrScholz
Hi mache es doch einfach so

Delphi-Quellcode:
if length(label1.Caption) >= 10 then
label1.Caption:='Erster Teil'+#13+'Zweiter Teil';

... Ich will gar nicht wissen woher du deine Enterprise gezaubert hast. :mrgreen:

@Jens War schon irgendwie offensichtlich, oder? :roll:

alcaeus 13. Nov 2004 19:10

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Zitat:

Zitat von malo
Hehe, von wegen, WordWrap auf true geht schon ^^

Bemerke das Wort "AFAIK" in meinem Post. Man lernt nie aus. :zwinker: Nachdem ich Jens' Beitrag gelesen habe hab ich aber meinen Kopf gegen die Wand gehauen :wall:

@MrScholz: Wenn dann müsste er Zeichen für Zeichen durchgehn und bei einem Leerzeichen einen Zeilenumbruch einfügen, falls das Wort nach dem Leerzeichen weiter reicht als das Label. Außerdem hängt die Anzahl der anzeigbaren Zeichen von der Schriftart und -größe ab. So leicht ist es doch nicht :roll:

Greetz
alcaeus

ReDoX 13. Nov 2004 19:14

Re: Neue Zeile wenn am Ende des Labels angekommen?
 
Das war ja nur ein Ansatz :(
Mfg MrScholz


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz