Tag

[Sharky]

Hai FabianBerlin,

Du musst deier Methode sagen das die Eigenschaft .Tag die des Buttons ist:

Code:

  
procedure TForm1.ClearBtnClick(Sender: TObject);
begin
  Case (Sender As TButton).tag  of
    0 :  Begin
           LinkerStapel.clear;
           LinkerFuellstandLabel.Caption := IntToStr(LinkerStapel.Fuellstand);
         end;
    1:  Begin
           RechterStapel.clear;
           RechterFuellstandLabel.Caption := IntToStr(RechterStapel.Fuellstand);
         end;
  end;
end;