RadioGroup und OnClick

[marabu]

Guten Morgen, gfjs.

Es geht ohne eine Schleife, wenn du den RadioButtons im tag property einen eindeutigen Wert zuweist. Diesen kannst du dann im gemeinsamen OnClick() event handler zur Steuerung deiner Aktionen verwenden:

Delphi-Quellcode:

procedure TDemoForm.RadioButtonClick(Sender: TObject);
begin
  with Sender as TRadioButton do
    case Tag of
      1: ShowMessage('have');
      2: ShowMessage('a');
      3: ShowMessage('nice');
      4: ShowMessage('day');
    end;
end;

Freundliche Grüße vom marabu