Ein Button mit mehreren Texten erstellen

[DeddyH]

Hallo und Willkommen in der DP ,

Du kannst ja im OnClick-Ereignis des Buttons dessen Caption ändern. Wenn es sich um einen Zähler handelt (so liest sich das für mich), kannst Du das ganz elegant lösen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    FZaehler: integer;
  ...
  end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  FZaehler := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FZaehler := FZaehler + 1; //oder inc(FZaehler)
  Button1.Caption := 'Button ' + inttostr(FZaehler);
end;