精华内容
下载资源
问答
  • delphi 遍历控件

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

    有10个EDIT控件,取名为EDT1,EDT2,EDT3。。。EDT10,如何用一个循环知道哪个EDIT控件的值是空的?procedure   TForm1.Button2Click(Sender:   TObject);   
      var   
          I:integer;   
      begin   
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量   
          begin   
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit   
              begin   
                  if   (Self.Components[i]   as   TEdit).Text=''   then   ShowMessage(Self.Components[i].Name);   
              end;   
          end;   
      end;  
    利用这个function   FindComponent(const   Name:   string)函数你可以找到你要的任何控件,然后判断它是否为空. 使用Tedit.findcomponents(edit(I))函数,i为控件的序号,具体看一下帮助!
    还有一个方法就是给他们的TAG赋同一个值,比如1,其他默认为零,程序如下:   
      procedure   TForm1.Button2Click(Sender:   TObject);   
      var   
          I:integer;   
      begin   
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量   
          begin   
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit   
              begin   
                  if   (Self.Components[i]   as   TEdit).Text='')   
                        and   (Self.Components[i]   as   TEdit).tag=1)   then     
                      ShowMessage(Self.Components[i].Name);   
              end;   
          end;   
      end;  

    转载于:https://www.cnblogs.com/plug/p/4652327.html

    展开全文
  • Delphi遍历控件

    千次阅读 2013-08-11 13:50:45
    1.如何遍历一个panel中所有的控件? Var  i: integer; begin  for i:=0 to Panel1.ControlCount do  begin  // 控件: Panel1.Controls[i]  // 加入自己代码  end; end;  2. 有10个EDIT...

    1.如何遍历一个panel中所有的控件?

    Var
        i: integer;
    begin
        for i:=0 to Panel1.ControlCount do
        begin
            // 控件: Panel1.Controls[i]
            // 加入自己代码
        end;
    end; 

    2. 有10个EDIT控件,取名为EDT1,EDT2,EDT3。。。EDT10,如何用一个循环知道哪个EDIT控件的值是空的?

    procedure   TForm1.Button2Click(Sender:   TObject);   
      var   
          I:integer;   
      begin   
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量   
          begin   
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit   
              begin   
                  if   (Self.Components[i]   as   TEdit).Text=''   then   ShowMessage(Self.Components[i].Name);   
              end;   
          end;   
      end;  
    利用这个function   FindComponent(const   Name:   string)函数你可以找到你要的任何控件,然后判断它是否为空. 使用Tedit.findcomponents(edit(I))函数,i为控件的序号,具体看一下帮助!
    还有一个方法就是给他们的TAG赋同一个值,比如1,其他默认为零,程序如下:   
      procedure   TForm1.Button2Click(Sender:   TObject);   
      var   
          I:integer;   
      begin   
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量   
          begin   
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit   
              begin   
                  if   (Self.Components[i]   as   TEdit).Text='')   
                        and   (Self.Components[i]   as   TEdit).tag=1)   then     
                      ShowMessage(Self.Components[i].Name);   
              end;   
          end;   
      end;  
    展开全文
  • delphi 遍历控件(转)

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

    有10个EDIT控件,取名为EDT1,EDT2,EDT3。。。EDT10,如何用一个循环知道哪个EDIT控件的值是空的?procedure   TForm1.Button2Click(Sender:   TObject);  
      var  
          I:integer;  
      begin  
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量  
          begin  
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit  
              begin  
                  if   (Self.Components[i]   as   TEdit).Text=''   then   ShowMessage(Self.Components[i].Name);  
              end;  
          end;  
      end; 
    利用这个function   FindComponent(const   Name:   string)函数你可以找到你要的任何控件,然后判断它是否为空. 使用Tedit.findcomponents(edit(I))函数,i为控件的序号,具体看一下帮助!
    还有一个方法就是给他们的TAG赋同一个值,比如1,其他默认为零,程序如下:  
      procedure   TForm1.Button2Click(Sender:   TObject);  
      var  
          I:integer;  
      begin  
          for   i:=0   to   Self.Componentcount-1   do//Self.Componentcount就是TForm1的控件数量  
          begin  
              if   Self.Components[i]   is   TEdit   then     //判断控件是否为TEdit  
              begin  
                  if   (Self.Components[i]   as   TEdit).Text='')  
                        and   (Self.Components[i]   as   TEdit).tag=1)   then    
                      ShowMessage(Self.Components[i].Name);  
              end;  
          end;  
      end;  

    转载于:https://www.cnblogs.com/bytutu/archive/2012/09/21/2697082.html

    展开全文
  • Delphi遍历所有控件

    千次阅读 2013-08-08 23:21:41
    方法一:(经测试,行得通) var  i:integer; begin  for i:= 0 to ComponentCount -1 do ... if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then ... TEdit(Components[i]).Left:=T

    方法一:(经测试,行得通)

    var

      i:integer;
    begin
      for i:= 0 to ComponentCount -1 do
      begin
        if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then
          TEdit(Components[i]).Left:=TEdit(Components[i]).Left + 5;
      end;

    end;

    方法二:(技术有限,测试失败)

    var
      c:TControl;
      i:integer;
    begin
      edit1.Focused;
       for i:=0 to self.ControlCount-1 do
       begin
         c:=self.Controls[i];
         if (c.ClassName='TEdit'and ((c as TEdit).Focused) then
           showmessage(c.Name);
     
       end;
    end;

    展开全文
  • delphi遍历窗体上所有控件

    千次阅读 2019-06-03 17:13:44
    //遍历所有控件并置为空。 for i := 0 to Self.ComponentCount -1 do begin if Self.Components[i] is TEdit then begin (Self.Components[i] as TEdit).Text := ''; end; end; ...
  • DELPHI遍历句柄

    2018-11-19 11:22:51
    遍历 修改另外目标程序控件 添加修改属性 等等等遍历 修改另外目标程序控件 添加修改属性 等等等
  • delphi控件遍历

    2014-03-18 10:49:20
    delphi控件遍历 delphi中,遍历窗体上的控件,并显示在ListBox1中: procedure TForm1.Button1Click(Sender: TObject); var  i:Integer; begin  ListBox1.Items.Clear;  ListBox1.
  • 循环遍历同类控件: form1中有groupbox1,内有多个speedbutton,控制其同时按下。 var i:integer; begin for i:=0 to form1.groupbox1.controlcount-1 do if form1.groupbox1.controls[i] is tspeedbutton ...
  • //循环遍历groupbox的内容 for j:=0 to length(arrayGroupbox)-1 do begin for i:=0 to arrayGroupbox[j].ControlCount-1 do begin //判断是否为checkbox 也可以去做别的判断 if arrayGroupbox[j].Controls[i] is ...
  • 查找标题已知的窗口句柄,遍历窗口控件   有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow. 其函数原形是: function FindWindow...
  • delphi怎样遍历form1中的所有button控件
  • 下面的内容是创建了一个遍历目录的控件。 AllDirs的单元文件中。这个单元文件中具有内建的堆栈,并有一个叫做TRunDirs的对 象,该对象知道如何遍历子文件夹。需要说明的是,TRunDirs是TComponent的派生对象 。...
  • Delphi 查找标题已知的窗口句柄,遍历窗口控件句柄(转)     用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是 回调函数 。我的理解是这样的: 回 调函数写出来不是自己的程序去调用的,...
  • 菜单控件 :TMainmenu菜单结点:TMenuItem树型控件:TTreeview 树型结点:TtreenodeTMainmenu.count 数量是一级菜单的数量.而TTreeview .count的数量是所有结点的数量.
  • delphi如何按照控件的左右顺序来遍历窗体中的每个控件 delphi默认是按照控件添加进窗体的顺序来遍历的, 有没有哪个属性能控制这个/??
  • delphi了解不多,用到这个功能,SO。。。 1. for i:=0 to Form1.ComponentCount-1 do  begin   Form1.Components[i]......  end; 2. procedure
  • 遍历窗口中的控件

    2016-07-14 16:10:00
    遍历窗口中的控件 【对象引用】  对象的名称仅仅只代表一个指向对象实体的引用而不代表对象实体 obj := M1.create; FreeAndNil(obj);  Delphi 提供了两个专用的操作符: as 及 is 操作符,它们...
  • Delphi中dxTreelist控件的使用

    万次阅读 2011-07-04 22:30:51
    最近公司项目中用到dxTreelist控件,以前没怎么用过这个控件,该控件比TreeView功能更强大,要完全掌握还真不容易,下面是我个人做的一个Demo,对该控件进行增删改遍历操作,以便自己以后忘了使用方法随时可以查吧。...
  • delphi chrome cef3 控件

    2019-06-04 18:04:09
    (转)delphi chrome cef3 控件学习笔记 (四) 2016年04月27日 14:19:48 一葉輕舟 阅读数:4177 版权声明:本文为博主原创文章,未经博主允许不得转载。 ...
  • 1.循环遍历载体时,动态创建的控件没释放一个 载体的controlcount 则减 1 所以使用yix
  • delphi chrome cef3 控件学习笔记 (四)

    千次阅读 2017-07-20 10:37:19
    一、遍历网页元素并点击js: 下面代码为找到淘宝宝贝页面,成交记录元素的代码: for(var i=0;i  var d=document.getElementsByTagName("A")[i];  var s=document.getElementsByTagName("A")[i].innerHTML;...
  • label控件无法获取焦点,但是 可以 把鼠标 移动过去 ...下面就是 按照 房间号 去 遍历 ,并将 鼠标光标 移动到 指定 房间控件上 procedure SearchReport(v: string); var  i, j, k: integer;  r...
  • 一、遍历网页元素并点击JS: 下面代码为找到淘宝宝贝页面,成交记录元素的代码: for(var i=0;i var d=document.getElementsByTagName("A")[i]; var s=document.getElementsByTagName("A")[i].innerHTML; if(s!=...
  • 基本原理:有些vcl组件未注册的话,会显示没有注册的信息,但在设计期间不显示这些信息,表示该组件会检查delphi的ide 环境,解决办法就是让自己...当然,这样做不见得100%破解检查ide环境的组件,有些组件可以遍历...

空空如也

空空如也

1 2 3 4
收藏数 73
精华内容 29
关键字:

delphi遍历控件