Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#6

AW: Größe eines Label mit WordWrap richtig definieren

  Alt 26. Mai 2012, 22:05
Also ich habs jetzt.

Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
  Label_MSGText.Caption := '';

  ShowMessage(IntToStr(Label_MSGText.Height));

  Label_MSGText.WordWrap := false;

  Label_MSGText.Constraints.MaxWidth := Form2.Width - Label_MSGText.Left - 50;

  Label_MSGText.Caption := Edit1.Text;
 
  Label_MSGText.WordWrap := true;

  ShowMessage(IntToStr(Label_MSGText.Height));
end;
Somit bricht das Label ab einer bestimmten Breite um. Diese kann variabel sein.
Bei Anchors sind nur noch akLeft und akTop, also die Standard-Einstellungen aktiv.

Warum man das so kompliziert machen muss kann ich leider nicht sagen.

[Edit]
AutoSize kann in OI fix auf true gesetzt werden und braucht nicht mit WordWrap im Code mit ein- und ausgeschaltet werden!
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<

Geändert von Helmi (27. Mai 2012 um 00:10 Uhr)
  Mit Zitat antworten Zitat