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