delphi - 为单选按钮数组创建一个单击事件处理程序

Question

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

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

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

为您的单选按钮定义一个事件：

procedure TForm1.OnRadioButtonClick(Sender : TObject);

创建单选按钮时，将此事件处理程序绑定到单选按钮。

rd[k].OnClick := OnRadioButtonClick;

---

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