使用TRadioGroup比较方便一点:procedure TForm1.Button3Click(Sender: TObject); begin RadioGroup1.Items.Clear; with ADODataSet1 do while (not Eof) do begin RadioGroup1.Items.Add(FieldByName('option').AsString); Next; end; end; 如果确实要用Panel和Radiobutton, 那每一个记录创建一个TRadioButton的实例好了,不过要控制好每一个RadioButton的Left和Top,比较麻烦
begin
RadioGroup1.Items.Clear;
with ADODataSet1 do
while (not Eof) do
begin
RadioGroup1.Items.Add(FieldByName('option').AsString);
Next;
end;
end;
如果确实要用Panel和Radiobutton, 那每一个记录创建一个TRadioButton的实例好了,不过要控制好每一个RadioButton的Left和Top,比较麻烦