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....