Question

delphi 中 单个radiobutton的使用问题 代码如下怎么实现不了

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
if not Form2.RadioButton1.Checked then Form2.RadioButton1.Checked:=true
else Form2.RadioButton1.Checked:=false;
end;

Answer 1

把 radiobutton1 和 radiobutton2 放在 groupbox1 中,不用代码就ok

Answer 2

你想实现什么？

追问

主要是这样的 我只加一个radiobutton
程序运行时 checked默认是false 点击一下 变成true 再点一下却变不回false
我目标是 想当它true时点击变为false false时点击变为true

追答

这样在同一个事件里是实现不了的，因为你当它为false变为true ，为true变为false ，逻辑上就形成了一个循环，也就是不管你按多少次鼠标，radiobutton都保持开始状态；
要想实现为false变为true ，为true变为false ，必须在不同事件中执行，比如你在adioButton1Click事件中实现false变为true ，而在adioButton1KeyPress事件中设定按回车键时实现true变为false ；
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
if not Form2.RadioButton1.Checked then Form2.RadioButton1.Checked:=true；
end;
procedure TForm2.RadioButton1KeyPress(Sender: TObject);
begin
if Key = #13 then
begin
if Form2.RadioButton1.Checked then Form2.RadioButton1.Checked:=false;
end;
end;

Answer 3

是啊，你想做什么，按你代码的意思，根本不需要代码啊

Answer 4

你想告诉我们什麽？