Ratespiel, Zahlen 1-9 mit RadioButtons

[DeddyH]

So vielleicht?

Delphi-Quellcode:

type
  TForm1 = class(TForm)
...
  private
    zahl, radiobutton: integer;
    procedure SetRadioButton(Sender: TObject);
...
end;
...

procedure TForm1.SetRadioButton(Sender: TObject);
begin
  radiobutton := StrToInt(TRadioButton(Sender).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TRadioButton) then
      TRadioButton(Components[i]).OnClick := SetRadioButton;
end;

[edit] Alternativ könntest Du auch eine RadioGroup nehmen, die RadioButtons über die Eigenschaft Items definieren und den ItemIndex der RadioGroup auswerten. [/edit]