Größe eines Label mit WordWrap richtig definieren

[Uwe Raabe]

Ein Label das sich dynamisch anpasst:

OI
Anchors = [akLeft, akTop, akRight]
Autosize = false;
WordWrap = true;

Delphi-Quellcode:

procedure SetLabelCaption(ALabel: TLabel; const AValue: string);
begin
  ALabel.Caption := AValue;
  ALabel.AutoSize := true;
  ALabel.AutoSize := false;
end;

procedure ResizeLabel(ALabel: TLabel);
var
  W: Integer;
begin
  W := ALabel.Width;
  ALabel.AutoSize := true;
  ALabel.AutoSize := false;
  ALabel.Width := W;
end;

procedure TForm140.Button1Click(Sender: TObject);
begin
  SetLabelCaption(Label1, Edit1.Text);
end;

procedure TForm140.FormResize(Sender: TObject);
begin
  ResizeLabel(Label1);
end;

Wenn das Label in einem Panel oder etwas Ähnlichem mit einem OnResize-Event liegt, dann sollte man natürlich diesen Event nehmen.