Hallo,
mir ist nicht klar was Du erreichen willst.
Meinst Du das?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Edit1.Text;
Label1.AutoSize := True;
Label1.AutoSize := False;
Label1.Width := 30;
end;
Dann musst Du aber sicherstellen das keine Wörter länger als die Breite des Labels sind, überlange Wörter werden abgeschnitten
Nimm doch ein Memo und stell es entsprechend ein(clBtnFace, Borderstyle usw.)