请问如何遍历某个程序窗体的的edit控件

noooon 2007-12-26 12:12:00

请问如何遍历某个程序窗体的的edit控件在线谢谢

...全文

103 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

noooon 2007-12-26

打赏
举报

回复

不是自身窗体是其他程序的窗体比如qq窗体

lqq7072000 2007-12-26

打赏
举报

回复

这样好像可以。一个窗体中的N多控件
Dim i As Integer
For i = 0 To (Controls.Count - 1)
While TypeOf Controls(i) Is 控件名称
i = i + 1
Wend
Next i

noooon 2007-12-26

打赏
举报

回复

晕是其它程序的窗体不是自身窗体

tubo_true 2007-12-26

打赏
举报

回复

Dim i As Integer
For i = 0 To (Controls.Count - 1)
While TypeOf Controls(i) Is textbox
i = i + 1
Wend
Next i

遍历窗口中的控件【对象引用】　　对象的名称仅仅只代表一个指向对象实体的引用而不代表对象实体 obj := M1.create; FreeAndNil(obj); 　　Delphi 提供了两个专用的操作符： as 及 is 操作符，它们分别用于对象的转型及对象的类型判断。 is 操作符用于在程序运行期间检查一个对象引用所指的对象实体...

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to self.ComponentCount-1 do begin if (self.Components[i] is Tedit) then begin Tedit(Components[i]).Clear;; end; end; end;

最近在客户项目上刚好遇到一个问题，项目需求是要获取某台机床的实时状态，问题点刚好就在于该机床不是传统意义上的数控机床，也不是PLC控制器，只有一个上传下载程序文件的应用程序，上面刚好有几个按钮可以大概判断当前工作状态，转眼一想，是否可以实时获取几个按钮的状态，从而简单分析下就确定机床加工状态。说干就干，开始拿起放下已久的Win32API来试试。思路大概如下：首先，我们知道的是应用程...

有10个EDIT控件，取名为EDT1，EDT2，EDT3。。。EDT10，如何用一个循环知道哪个EDIT控件的值是空的？procedure TForm1.Button2Click(Sender: TObject); var I:integer; begin for i:=0 to Self.Componentcount-1 d...

var　　Edits: array [0..5] of TEdit; // 把所有的Edit当成是数组procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; begin for i := 0 to ComponentCount - 1 do begin // 循环控件 i...

7,788

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章