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

delphi 获取动态创建控件内容

nalyc2个月前 (09-17)网站技术文档142

遍历控件代码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发布,如需转载请注明出处。

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

分享给朋友:

相关文章

RAD Studio 11 即将推出:新版本号公告和更新订阅客户的 Beta 版邀请

RAD Studio 11 即将推出:新版本号公告和更新订阅客户的 Beta 版邀请

我们很高兴地宣布,Delphi、C++Builder 和 RAD Studio 的下一个版本将是版本 11。目前正在开发中,我们计划在今年晚些时候发布。转移到版本 11 几年前,Embarcadero 决定将我们面向的两个主要桌面操作系...

Delphi NetHTTPClient1 下载显示进度条

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

PHP连接MSSQL方法汇总

为了能让PHP连接MSSQL,系统需要安装MSSQL,PHP,且在PHP.ini中的配置中,将 ;extension=php_mssql.dll前面的;去掉1.连接MSSQL1234567$conn=mssql_connect(&...

发表评论

访客

看不清,换一张

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