5,388
社区成员
发帖
与我相关
我的任务
分享循环设置控件的属性
我想用代码循环设置一个控件的属性,
比如 button1 to buttonN (N 为一个不确定的integer)的caption等属性，不知如
何写代码？
比如 button1 to buttonN (N 为一个不确定的integer)的caption等属性，不知如
何写代码？
...全文
请发表友善的回复…
发表回复
peterguo 2001-07-28
- 打赏
- 举报
在前面加个FORM1就可以了，Components是TForm继承来的。
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TButton) then
(Form1.Components[i] as TButton).Caption:='标题';
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TButton) then
(Form1.Components[i] as TButton).Caption:='标题';
yxjjx 2001-07-25
- 打赏
- 举报
peterguo(peterguo) 他已经说得很清楚了
joyhero 2001-07-25
- 打赏
- 举报
如果加上'Self.'还出错的话，那有可能是你用到Components的函数或过程没有写成:
procedure TForm1.MyFunc;
而是写成了:
procedure MyFunc;
procedure TForm1.MyFunc;
而是写成了:
procedure MyFunc;
joyhero 2001-07-25
- 打赏
- 举报
在Components前加上'Self.'试试
geliang 2001-07-25
- 打赏
- 举报
会不会你的Delphi有问题？重装试试
chendaiyin 2001-07-24
- 打赏
- 举报
有，还是报同一个错
xzgyb 2001-07-20
- 打赏
- 举报
Classes Uses了吗，默认都有的，
chendaiyin 2001-07-20
- 打赏
- 举报
可是编译时会停在 components 上说：Undeclared identifier: 'components'
xzgyb 2001-07-20
- 打赏
- 举报
就是你的鼠标移到相应的函数上面同时按住Ctrl，这是看到函数下面有下划线
点一下就进到相应的声明处，但前提是你得uses这个包含这个函数的文件
另外Components等你不需要uses,直接用就行，应为Components都是TForm继承来的
点一下就进到相应的声明处，但前提是你得uses这个包含这个函数的文件
另外Components等你不需要uses,直接用就行，应为Components都是TForm继承来的
geliang 2001-07-20
- 打赏
- 举报
不用啊，我已经试过了，完全可以
chendaiyin 2001-07-20
- 打赏
- 举报
可是编译出错，可能是用 component 要在uses中加入哪个单元。
geliang 2001-07-20
- 打赏
- 举报
给分吧，peterguo(peterguo)讲得已经很清楚了
chendaiyin 2001-07-20
- 打赏
- 举报
uses:
XXXX
XXXX
chendaiyin 2001-07-20
- 打赏
- 举报
To ： gz_xjf(thinker)
什么意思?
什么意思?
gz_xjf 2001-07-20
- 打赏
- 举报
Ctrl+Click
jxd_2001 2001-07-20
- 打赏
- 举报
关注！
chendaiyin 2001-07-20
- 打赏
- 举报
up
chendaiyin 2001-07-20
- 打赏
- 举报
请问，component 包含在哪个单元里呢?
使用时要在uses中添加什么?
使用时要在uses中添加什么?
Clus 2001-07-17
- 打赏
- 举报
用peterguo的和myxfang的都一样！
chendaiyin 2001-07-17
- 打赏
- 举报
那又要用什么?
加载更多回复（4）
