为一组Radio Buttons创建一个onclick事件处理程序

Question

我创建了一个radiobuttons数组，它将在事件中创建。我想创建一个事件，说当单击它并显示一条消息时，使radiobutton不可见。但它必须在点击时发生。你能帮助我吗？ 这就是我创建我的无线电按钮的方法

for k := 1 to 20 do
begin
  rd[k] := TRadioButton.Create(Self);
  rd[k].Parent := pgcVerkiesing;
  rd[k].Caption := 'rs'+IntToStr(k);
  rd[k].Left := 16;
  if k = 1 then
    rd[k].Top := 26
  else
    rd[k].Top := (k*24) ;
  rd[k].OnClick := OnClick;
end;

现在我想做这样的事情：rs1.clicked //procedure

rs1.disabled := true;
richedit1.lines.add := 'Name';
showmessage(names);

怎么办？

Answer 1

如果我理解正确，你想要禁用点击的单选按钮。

为您的radiobuttons定义一个事件：

procedure TForm1.OnRadioButtonClick(Sender : TObject);

创建radiobuttons时，将此事件处理程序绑定到radiobuttons。

rd[k].OnClick := OnRadioButtonClick;

---

procedure TForm1.OnRadioButtonClick(Sender : TObject);
begin
  TRadioButton(Sender).Enabled := false;
  RichEdit1.Lines.Add( 'Name');
  ShowMessage( names);  // names not defined ??
end;