zoukankan      html  css  js  c++  java
  • delphi 动态创建 复选框控件

    procedure TFrmSysIni.FormCreate(Sender: TObject);
    var
      I:Integer;
      Col,Row:Integer;//第几列
    begin
      TabelList:=TStringList.Create;
      DM1.ADOC1.GetTableNames(TabelList);
      Col:=0; Row:=0;
      For I:=0 to TabelList.Count-1 do
      begin
        if Col>13 then
        begin
          Col:=0;
          Row:=Row +1 ;
        end;
        CheckList:=TRzCheckBox.Create(Self);
        with CheckList do
        begin
          Parent:=RzPanel1;
          Width:=140;
          Height:=20;
          Left:=16 +(Row*140);
          Top:=16 + (Col*24);
          Name:= 'CheckList'+inttostr(I);
          Caption:= TabelList.Strings[I];
          Visible:=true;
          if TabelList.Strings[I]='COM_DB' then Enabled:=False;
          if TabelList.Strings[I]='COM_PARA' then Enabled:=False;
          if TabelList.Strings[I]='TIME_SORT' then Enabled:=False;
          if TabelList.Strings[I]='TIME_RULE' then Enabled:=False;
          if TabelList.Strings[I]='COM_CODE' then
          begin
            //Enabled:=False;
            Color:=clRed;
           // OnClick:=CheckListOnClick;
          end;
          if TabelList.Strings[I]='CHARGE_STATION' then Enabled:=False;

          Transparent:=True;
        end;
        Col:=Col +1;
      end;
    end;

  • 相关阅读:
    IP 协议
    以太网协议
    制作Win10系统安装U盘和安装纯净版Win10
    IP地址的配置
    进制转换
    设置QQ环境变量
    修改IE默认页的指向
    虚拟机安装Linux ubuntu19.10
    【Eclipse】Editor does not contain a main type
    Vmware Workstation虚拟机
  • 原文地址:https://www.cnblogs.com/yoogoo/p/2527930.html
Copyright © 2011-2022 走看看