zoukankan      html  css  js  c++  java
  • delphi循环遍历同类控件或所有控件

    循环遍历同类控件:

    form1中有groupbox1,内有多个speedbutton,控制其同时按下。

    var i:integer;

    begin

    for i:=0 to form1.groupbox1.controlcount-1 do

    if form1.groupbox1.controls[i] is tspeedbutton then

    begin

    tspeedbutton(form1.groupbox1.controls[i]).allow‍allup:=true;

    ‍tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1;

    tspeedbutton(form1.groupbox1.controls[i]).down:=true;

    end;

    结合数据库使用,表示表rz中的rz字段(bit),为1则按下,为0则抬起。

    var i:integer;

    begin

    i:=0;

    while not adotable1.eof then

    if adotable1.fields[1].asboolen=true then

    begin

    tspeedbutton(form1.groupbox1.controls[i]).allow‍allup:=true;

    ‍tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1;

    tspeedbutton(form1.groupbox1.controls[i]).down:=true;

    end

    else‍

    begin

    tspeedbutton(form1.groupbox1.controls[i]).allow‍allup:=true;

    ‍tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1;

    tspeedbutton(form1.groupbox1.controls[i]).down:=false;

    end;

    inc(i);

    adotable1.next;

    end;

    遍历Panel组件上的所有控件:

    procedure frmMain.CLS; //主窗体自定义事件CLS
    var i:integer;
    begin
      for i:=0 to panel5.ControlCount -1 do
      begin
        if panel5.Controls[i] is TEdit then  //Edit组件
        begin
           ((panel5.Controls[i]) as TEdit).Text:='';
           ((panel5.Controls[i]) as TEdit).Enabled:=true;
        end  else if panel5.Controls[i] is TComboBox then  //ComboBox组件
          begin
             ((panel5.Controls[i]) as TComboBox).Text:='';
             ((panel5.Controls[i]) as TComboBox).Enabled:=true;
          end  else if panel5.Controls[i] is TDateTimePicker then  //DateTimePicker组件
            begin
              ((panel5.Controls[i]) as TDateTimePicker).Enabled:=true;
              ((panel5.Controls[i]) as TDateTimePicker).DateTime:=now();
            end; 
        end;
    end;
    这个过程主要是清空panel5组件Edit、ComboBox组件Text内容、把DateTimePicker组件日期设为当前日期,并使panel5所有控件可用 ......


  • 相关阅读:
    JAVA生成问答式验证码图片,支持加减算法
    kaptcha Java验证码
    字母数字、字母、汉字验证码 (java)
    java实现点击图片文字验证码
    java随机生成字符串(字符随机生成类 生成随机字符组合)
    分布式和集群的区别
    【nginx】配置Nginx实现负载均衡
    【Tomcat】一台电脑上运行多个tomcat
    【nginx+tomcat集群】Nginx1.12.2+Tomcat7集群+负载均衡+Session共享
    【nginx】nginx的安装及测试
  • 原文地址:https://www.cnblogs.com/ntearn/p/1996708.html
Copyright © 2011-2022 走看看