当前位置:首页 > 网站技术文档 > 正文内容

delphi 获取动态创建控件内容

nalyc1个月前 (09-17)网站技术文档76

遍历控件代码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;


遍历控件代码1:

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值 方便定位

扫描二维码推送至手机访问。

版权声明:本文由Qzcc.Com发布,如需转载请注明出处。

本文链接:http://qzcc.com/post/delphi_Components.html

分享给朋友:

相关文章

Delphi NetHTTPClient1 下载显示进度条

unit untFrmDownFile;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe...

Instructions to use TeeChart with FMXLinux

Instructions to use TeeChart with FMXLinux

Once installed in RAD Studio, TeeChart VCL/FMX can target a variety of platforms, including Windows, macOS, Android, i...

如何用动态字段实现系统的扩展性?

如何用动态字段实现系统的扩展性?

设计系统架构时,我们总是希望一个架构或者说是模型能支持多种业务场景,当然场景是系统范围内的。比如说做商品系统,商品有多种属性,不同类型的商品的属性不一样,怎么用关系型数据库去保存这些不同的属性呢?再比如做CMS时,除了基本的背景、位置、类型...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。