0

イベントで作成されるラジオボタンの配列を作成しました。クリックするとラジオボタンが非表示になり、メッセージが表示されるというイベントを作成したいと思います。ただし、クリック時に発生する必要があります。手伝って頂けますか?これがラジオボタンの作成方法です

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);

何をすべきか?

4

1 に答える 1