2 getrente labels andocken

[DeddyH]

Pack Dir mal 2 Labels, 1 Edit und einen Button auf eine Form, Label1 auf Autosize um in OnClick des Buttons dann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Abstand = 10;
begin
  if Length(trim(Edit1.Text)) > 0 then
    begin
      Label1.Caption := Edit1.Text;
      Label2.Left := Label1.Left + Label1.Width + Abstand;
    end;
end;