5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wzzsoft 2001-10-18
- 打赏
- 举报
wzzsoft@263.net
wzzsoft 2001-10-14
- 打赏
- 举报
你等着，我给你原码，而且是列举任何一个窗口的所有edit组件，现在有事，必须要走了
scxby 2001-10-14
- 打赏
- 举报
我的邮件是scxby@163.com或scxby@263.net,有意见邮件联系
scxby 2001-10-14
- 打赏
- 举报
以上这两个方法可是可以,但我可以找到反例。
最好是用递归的方法遍历窗口上的所有控件。
最好是用递归的方法遍历窗口上的所有控件。
title 2001-10-14
- 打赏
- 举报
for i := 0 to youform.ComponentCount - 1 do
if (Components[i] is TEdit) then
Begin
...
end;
就是这样
if (Components[i] is TEdit) then
Begin
...
end;
就是这样
hansonboy 2001-10-14
- 打赏
- 举报
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
Begin
...
end;
if Components[i] is TEdit then
Begin
...
end;
