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;
    

      

  • 相关阅读:
    C Socket编程之Connect超时 (转)
    【c#】设置Socket连接、接收超时(转)
    socket测试远程地址能否连接并为连接设置超时(转)
    ZedGraph右键菜单怎样禁止它弹出(转)
    赚钱本身就是人生目的
    如果一个女人喜欢你,又不跟你在一起,而且只跟你很暧昧,那代表什么
    LayoutInflater的使用
    Android应用程序的生命周期
    Android的系统服务一览
    Android系统服务-简介
  • 原文地址:https://www.cnblogs.com/rogge7/p/4498667.html
Copyright © 2011-2022 走看看