在Delphi中创建一个选项表单

Question

我希望我的Form1有一个打开Form2的选项按钮.在Form2中,将有3个单选按钮.当按下单选按钮时,我需要使用我的一个程序来检查:

if (RadioButton1.Pushed) then begin

它继续使用代码的一部分,或者如果推动Radiobutton2,则使用不同的部分,依此类推.问题是,我不知道从哪里开始.有什么建议？

Answer 1

可能更容易使用RadioGroup.然后,您可以通过添加到Object Inspector中的Items列表来设置选项.您可以通过查看ItemIndex来判断已设置的按钮,如:

Case MyRadioGroup.ItemIndex of
  1: DoSomething;
  2: DoSomethingElse;
  3: DoAnotherThing;
End;

您不必使用RadioGroup.任何窗口控件中的所有按钮都将具有您期望一组RadioButton具有的互斥属性.

插口