Question

delphi 获取动态创建控件内容

delphi 获取动态创建的TRadioButton 的内容 也就是CAPTION的值是什么。如何实现。 急，在线等。

TRadioButton是由数据库中的记录生成的， 记录有很多。使用说明方法可以获取出他的CAPTION值。
就是生成了几个TradioButton 的按钮，按钮的caption的值是由数据库中数据写的。 我的目的是 当选择了某一个单选按钮后，点击button1 会显示出这个按钮的caption。

Answer 1

var
i :Integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TRadioButton then
if (Components[i] as TRadioButton).Checked then
begin
ShowMessage((Components[i] as TRadioButton).Caption);
Break;
end;
end;

Answer 2

遍历控件吧
procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer
begin
for i:=0 to ComponentCount - 1 do
if Components[i] is TRadioButton then
TRadioButton(Components[i]).Caption
end;
或者你动态创建的是 设置控件的tag值来方便定位吧

Answer 3

说的不是很明确，是为每一条数据都动态创建TRadioButton吗？要是的话就当数组的一项调用