有关delphi中case语句与radiobutton结合使用的有关问题
有关delphi中case语句与radiobutton结合使用的问题
我有两组radiobutton，各放在相应的groupbox里，第一组里的选项是“红色”，“黄色”，“蓝色”，第二组的选项是“数字1”，“数字2”，“数字3”，当选择以上两项以后，在edit1里显示相应的内容，用case语句怎么写？
------解决思路----------------------
這個問題無關 case 囉~ 建議 LZ 以 TRadioGroup 來製作會更方便...先將 TRadioGroup 裡的 Items 填入項目...在以下面代碼 Run......
我有两组radiobutton，各放在相应的groupbox里，第一组里的选项是“红色”，“黄色”，“蓝色”，第二组的选项是“数字1”，“数字2”，“数字3”，当选择以上两项以后，在edit1里显示相应的内容，用case语句怎么写？
------解决思路----------------------
這個問題無關 case 囉~ 建議 LZ 以 TRadioGroup 來製作會更方便...先將 TRadioGroup 裡的 Items 填入項目...在以下面代碼 Run......
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Edit1.Text := RadioGroup1.Items[RadioGroup1.ItemIndex];
end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
Edit1.Text := RadioGroup2.Items[RadioGroup2.ItemIndex];
end;