+ -
当前位置:首页 → 问答吧 → 关于RadioGroup组建创建的疑惑

关于RadioGroup组建创建的疑惑

时间:2011-11-24

来源:互联网

type
  TForm1 = class(TForm)
  RadioGroup1: TRadioGroup;
  Memo1: TMemo;
  procedure FormCreate(Sender:TObject);
  procedure RadioGroup1Click(Sender:TObject);
  Procedure Button1Click(Sender:TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure TForm1.FormCreate(Sender:TObject);
begin
  RadioGroup1.Items.Add('1-19');
  RadioGroup1.Items.Add('20-39');
  RadioGroup1.Items.Add('40-59');
  RadioGroup1.Items.Add('60-79');
  RadioGroup1.Items.Add('80-99');
end;

Procedure TForm1.RadioGroup1Click(Sender:Tobject);
  begin
  Memo1.Clear;
  Memo1.Lines.Add(RadioGroup1.Items[RadioGroup1.ItemIndex]);
  end;
Procedure TForm1.Button1Click(Sender:TObject);
begin
  Application.Terminate;

end;

以上代码编译后可以运行 但是在RadioGroup1中却没有生成选项
请教各位是什么原因呢

作者: fjswlcw123   发布时间: 2011-11-24

FormCreate函数内加断点,看代码是否执行到了?

作者: ccrun   发布时间: 2011-11-24

在什么位置加断点?

作者: fjswlcw123   发布时间: 2011-11-24