zoukankan      html  css  js  c++  java
  • 清除面板上所有控件的值

    procedure Pub_ClearOnePanCondition(APan: TWinControl);
    var
      intI: integer;
      PanTemp: TScrollBox;
    begin
      for intI := 0 to APan.ControlCount - 1 do
      begin
        if (APan.Controls[intI] is TScrollBox) then
        begin
          PanTemp := TScrollBox(APan.Controls[intI]);
          Pub_ClearOnePanCondition(PanTemp);
        end;
    
        if (APan.Controls[intI] is TPanel) then
          Pub_ClearOnePanCondition(TPanel(APan.Controls[intI]));
    
        if (APan.Controls[intI] is TCustomEdit) then TCustomEdit(APan.Controls[intI]).Text := '';
    
        if (APan.Controls[intI] is TCheckBox) then TCheckBox(APan.Controls[intI]).Checked := False;
        if (APan.Controls[intI] is TRzCheckBox) then TRzCheckBox(APan.Controls[intI]).Checked := False;
        if (APan.Controls[intI] is TComboBox) then
        begin
          if TComboBox(APan.Controls[intI]).Style = csDropDownList then
            TComboBox(APan.Controls[intI]).ItemIndex := -1
          else
          begin
            TComboBox(APan.Controls[intI]).ItemIndex := -1;
            TComboBox(APan.Controls[intI]).Text := '';
          end;
        end;
        if (APan.Controls[intI] is TRzComboBox) then
        begin
          if TRzComboBox(APan.Controls[intI]).Style = csDropDownList then
            TRzComboBox(APan.Controls[intI]).ItemIndex := -1
          else
          begin
            TRzComboBox(APan.Controls[intI]).ItemIndex := -1;
            TRzComboBox(APan.Controls[intI]).Text := '';
          end;
        end;
        if (APan.Controls[intI] is TDateTimePicker) then TDateTimePicker(
          APan.Controls[intI]).Checked := False;
        if (APan.Controls[intI] is TRZDateTimePicker) then TRZDateTimePicker(
          APan.Controls[intI]).Checked := False;
        if (APan.Controls[intI] is TRZDateTimeEdit) then TRZDateTimeEdit(
          APan.Controls[intI]).Clear;
    
        if (APan.Controls[intI] is TRadioGroup) then
        begin
          if TRadioGroup(APan.Controls[intI]).Items.Count > 0 then
          begin
            if TRadioGroup(APan.Controls[intI]).Tag > 0 then
              TRadioGroup(APan.Controls[intI]).ItemIndex := TRadioGroup(APan.Controls[intI]).Items.Count - 1
            else TRadioGroup(APan.Controls[intI]).ItemIndex := 0;
          end;
        end;
      end;
    end;
    

      

  • 相关阅读:
    Jetty 的工作原理以及与 Tomcat 的比较
    基于Tengine的反向代理详细配置
    mysql定时脚本(event),类似oracle的job
    mysql 强制走索引
    如何检查mysql中建立的索引是否生效的检测方法及相关参数说明
    MySQL查询不使用索引汇总
    [大牛翻译系列]Hadoop 翻译文章索引
    [牛感悟系列]JAVA(1)理解JAVA垃圾回收
    [大牛翻译系列]Hadoop系列性能部分完结
    [大牛翻译系列]Hadoop(22)附录D.2 复制连接框架
  • 原文地址:https://www.cnblogs.com/rogge7/p/4498667.html
Copyright © 2011-2022 走看看