var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TButton then
TButton(Components[I]).Caption := '你真富有!';
end;
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TButton then
TButton(Components[I]).Caption := '你真富有!';
end;
解决方案 »
- 安装delphi2007的问题
- 16进制数据串口通讯的问题
- 异步串口通信,如何读取奇偶校验位
- 关于托拽的奇怪问题
- StringGrid如何使一行变成粗体?
- 我的gif 图片怎不动?
- 在程序中用到exit,出现了想不到的错误“[Error] ctxs.pas(170): '.' expected but ';' found”,代码如下
- 如何在查询语句中加一列标识
- 如何判断query的第一条和最后一条纪录。(在线等)
- 各位高手,首先感谢大家对我的帮助,我想用一套中文的安装生成软件来做安装程序,不知道那里有!
- 怎样给.ini配置文件中每一个Section之间空行
- 我用api函数playsound播放wav声音文件,但是不知道该用什么api函数可以停止,暂停,继续等播放动作,恳请大侠指点迷津!
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TButton then
TButton(Components[I]).Caption := '你真富有,胜过比尔.盖茨!';
end;