2017年9月7日 星期四

wwDBGrid Selected

     AGrid.Selected.Clear;

      AGrid.Selected.Add(
        Trim(FieldByName('fname').AsString)+#9+ //欄位名稱
        Trim(FieldByName('fwidth').AsString)+#9+ //寬度
        Trim(FieldByName('fcaption').AsString)+#9+ //欄位說明
        Trim(FieldByName('colreadonly').AsString)+#9+ //唯讀 T:True F:False
        Trim(FieldByName('fcaption_group').AsString) //群組
        );
      sControlType := FieldByName('controltype').AsString;
      if sControlType='CheckBox' then
      begin
        AGrid.ControlType.Add(
          Trim(FieldByName('fname').AsString)+';'+ //欄位名稱
          Trim(FieldByName('controltype').AsString)+';'+ //物件類別
          Trim(FieldByName('checked').AsString)+';'+ //CheckBox.Checked
          Trim(FieldByName('unchecked').AsString) //Checkbox.unChecked
          );
      end
      else if sControlType='CustomEdit' then
      begin
        AGrid.ControlType.Add(
          Trim(FieldByName('fname').AsString)+';'+ //欄位名稱
          Trim(FieldByName('controltype').AsString)+';'+ //物件類別
          Trim(FieldByName('controlname').AsString)+';'+ //物件名稱
          Trim(FieldByName('alwayspaint').AsString) //持續顯示在每一列(Always Paint)
          );
      end;

      AGrid.ApplySelected;

沒有留言:

張貼留言