Wenn ich richtig verstanden habe, so soll der Anwender einen zufällig ausgewählten Button drücken.
Zitat:
Nur Irgendwie bringt die Procedur onButtonClick kein Ergebnis.
Du hast dich da etwas in deinem Komplizissimus verfranzt. Was willst Du?
Beim Drücken eines der 4 Buttons abfragen, ob ihr Tag mit der Butonnummer übereinstimmt.
Schreib doch einfach einen gemeinsamen Eventhändler für das OnClick Ereignis der 4 Buttons und Vergleiche Tag mit ButNummer
Delphi-Quellcode:
var
ButNummer: integer;
procedure TForm1.FormActivate(Sender: TObject);
begin
ButNummer:= Random(3)+1; // 1..4
end;
procedure TForm1.ButtonClick(Sender: TObject); // gemeinsamer EventHändler für
begin // die vier Buttons
with Sender as TButton do
if Tag=ButNummer then
lblOut.Caption:= 'Du hast den richtigen Button erwischt'
else lblOut.Caption:= 'falsch, ButNummer= ' + IntToStr(ButNummer);
ButNummer:= Random(3)+1; // für das nächste Spiel
end;