Zwei Labels nacheinander mit Ziffernbuttons füllen

[Moombas]

Bei dem Beispiel von Alallart kannst du, wenn du normale Buttons benutzt auch einfach anstatt

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);

  function GetNumber(LabelName: String): String;
  var
    s: String;
  begin
    //Routine geht davon aus, dass alle Buttons die Nummer
    //SpeedButton0 bis SpeedButton10 haben.
    s := LabelName;
    Delete(s, 1, Length('SpeedButton')); //Entfernt Text vor der Zahl
    Result := s;
  end;

begin
  if Label1.Caption = '' then
    Label1.Caption := GetNumber(TSpeedButton(Sender).Name)
  else
    if Label2.Caption = '' then
      Label2.Caption := GetNumber(TSpeedButton(Sender).Name);
end;

folgendes nutzen (deine Buttons sind ja entsprechend "konfiguriert"):

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Label1.Caption = '' then
    Label1.Caption := TButton(Sender).Caption
  else
    if Label2.Caption = '' then
      Label2.Caption := TButton(Sender).Caption;
end;