Ratespiel, Zahlen 1-9 mit RadioButtons

[hoika]

Hallo,

setze bei jedem Radiobutton das property Tag im Objectinspector,
erzeuge eine OnClick für den 1. Radiobutton,
setze diese OnClick für alle anderen

und dann etwa so

Delphi-Quellcode:

procedure TForm1.OnRadioButton1Click(Sender: TObject);
var
  RB: TRadioButton;
begin
  if Sender is TRadioButton then
  begin
    RB:= TRadioButton(Sender);
  
    Label.Caption:= IntToStr(RB.Tag)  
  end;
end;

Heiko