Gibt es solch ein Control ?

[Sharky]

@Bigmichi: Versuche doch zumindest deine Schreibweise etwas ordentlicher zu gestalten. So kann man das ja kaum lesen.

[Bigmichi]

:-D Hab gemeint das die Breite gleich bleibt aber auch die Höhe es passiert leider nix :(

besser ? =)

[Mirilin]

:hi:

mfg Tobias

[Bigmichi]

bei mit bewirkt "Wordwrap" überhaupt nix selbst wenn ich die Höhe größer mache und der String länger ist als die Breite bleibt e snur 1 Zeile -.-

was mach ich falsch ?

Hab Delphi 7

[Mirilin]

:hi:

Häng doch mal dein Programm an, damit man es sich ansehen kann. So ist es - zumindest für mich - schwer zusagen, was falsch läuft.

mfg Tobias

[Bigmichi]

Ich hoffe kannst mir helfen =)

[Mirilin]

:hi:

:gruebel: er bricht den riesen String nicht um, er bricht nur bei Leerzeichen, wie es scheint.

mfg Tobias

[Bigmichi]

dsa is mehr als schlecht :( ich weiß ja nie wie lang ein strign wird und dan kann man den net sehen -.-

gibt es eine andree möglichkeit transperent Text anzuzeigen ?

wo man auch das Kontroll auf den Text anpassen kann ?

[dizzy]

Ist ja auch Wordwrap, nicht Charwrap ;)
Woher soll Delphi auch wissen, wo man ein Wort trennen kann/darf.

[Mirilin]

:hi:

Delphi-Quellcode:

procedure SetMultiLineString(const aString: String;
  aLabel: TLabel);
var
  s : String;
  t : String;
  p : String;
  i : Integer;
begin
  p := aString;
  s := '';
  while p <> '' do
  begin
    t := '';
    i := 1;
    while aLabel.Canvas.TextWidth(t)+aLabel.Canvas.TextWidth(p[i])  < aLabel.ClientWidth do
    begin
      t := t+p[i];
      inc(i);
    end;
    s := s + t+#13#10;
    Delete(p,1,i-1);
  end;
  aLabel.Caption := s;
end;

:duck: nicht schlagen

mfg Tobias