Tag

[FabianIBerlin]

Es ist schon lange her ds ich mit Tag einer Componente gearbeitet habe und jetz wo ich es mal wider machen möchte funktioniert das nicht richtig kann mir mal jemand sagen, was ich da falsch gemacht habe:

Code:

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

Dieses Ereignis wird von 2 Buttons aufgerufen einer mit Tag 0 einer mit Tag 1 aber er ruft immer Denn fall für den tag 0 auf....

[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;

[FabianIBerlin]

big thx das hatte ich mir nimmehr gemerkt :D
funzt jetz...

[Binärbaum]

Wenn man nur Tag schreibt, dann wird das vom Compiler als Form1.Tag aufgefasst.

MfG
Binärbaum