Button-Tag wird nicht erkannt

[FabianClassen]

Danke sehr.
Klappt jetzt alles ;)

MFG
FC
;)

[Dipl Phys Ernst Winter]

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;

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
    ButNummer:= Random(3)+1;                   // 1..4
end;

Nicht ganz ;), sondern 1..3