delphi ADVStringGrid 怎么显示下拉列表

delphi ADVStringGrid 怎么显示下拉列表

Delphi 2010-11-30 09:20:41 阅读0 评论0   字号：大中小 订阅

AdvStringGrid_IDX.ControlLook.DropDownAlwaysVisible:=True;    显示下拉列表
 
procedure TForm_IndexManager.AdvStringGrid_IDXComboChange(Sender: TObject;
  ACol, ARow, AItemIndex: Integer; ASelection: String);
var
  jstrMEA_TYPE_ID:string;
begin
  //ShowMessage('sdfg');
  case ACol of
           10:begin
              //showmessage(IntToStr(AItemIndex));
              jstrMEA_TYPE_ID:=PMEA_TYPERec(AdvStringGrid_IDX.Combobox.Items.Objects[AdvStringGrid_IDX.Combobox.ItemIndex])^.F_MEA_TYPE_ID;
              if DataSetUR_SYS_MEA <> nil then
              begin
                DataSetUR_SYS_MEA.Data:=null;
                vdm.GetSQLDataSet(' select * from UR_SYS_MEA where MEA_TYPE_ID=? ',VarArrayOf(['S|'+jstrMEA_TYPE_ID]),DataSetUR_SYS_MEA);
              end;
           end;
  end;
//
end;
 
procedure TForm_IndexManager.AdvStringGrid_IDXHasComboBox(Sender: TObject;
  ACol, ARow: Integer; var HasComboBox: Boolean);
begin
  HasComboBox :=(ACol = 7) or (ACol = 9) or (ACol = 10) or (ACol = 11) ;
end;
 
procedure TForm_IndexManager.AdvStringGrid_IDXGetEditorType(
  Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType);
var
  MyDataTypeRec:PDataTypeRec;
  MyDictRec:PDictRec;
  MyMEA_TYPERec:PMEA_TYPERec;
  MyMEARec:PMEARec;
begin
  with AdvStringGrid_IDX do
  case ACol of
            7:begin
                aEditor := edComboList;
                ClearComboString;
                New(MyDataTypeRec);
                MyDataTypeRec.FDataType_ID:='C';
                MyDataTypeRec.FDataType_Name:='字符';
                AdvStringGrid_IDX.Combobox.Items.AddObject(MyDataTypeRec.FDataType_Name,TObject(MyDataTypeRec));
                New(MyDataTypeRec);
                MyDataTypeRec.FDataType_ID:='N';
                MyDataTypeRec.FDataType_Name:='数值';
                AdvStringGrid_IDX.Combobox.Items.AddObject(MyDataTypeRec.FDataType_Name,TObject(MyDataTypeRec));
                New(MyDataTypeRec);
                MyDataTypeRec.FDataType_ID:='D';
                MyDataTypeRec.FDataType_Name:='日期';
                AdvStringGrid_IDX.Combobox.Items.AddObject(MyDataTypeRec.FDataType_Name,TObject(MyDataTypeRec));
                New(MyDataTypeRec);
                MyDataTypeRec.FDataType_ID:='F';
                MyDataTypeRec.FDataType_Name:='附件';
                AdvStringGrid_IDX.Combobox.Items.AddObject(MyDataTypeRec.FDataType_Name,TObject(MyDataTypeRec));
                New(MyDataTypeRec);
                MyDataTypeRec.FDataType_ID:='P';
                MyDataTypeRec.FDataType_Name:='图片';
                AdvStringGrid_IDX.Combobox.Items.AddObject(MyDataTypeRec.FDataType_Name,TObject(MyDataTypeRec));
              end;
            9:begin   //枚举字典
                aEditor := edComboList;
                ClearComboString;
                 with AdvStringGrid_IDX.Combobox do
                 begin
                   Items.Clear;
                   with DataSetDICT do
                   begin
                     First;
                     while not Eof do
                     begin
                       New(MyDictRec);
                       MyDictRec.FDict_ID:=Fieldbyname('DICT_ID').AsString;
                       MyDictRec.FDict_Name:=Fieldbyname('DICT_NAME').AsString;
                       Items.AddObject(MyDictRec.FDict_Name,TObject(MyDictRec));
                       next;
                     end;
                   end;
                 end;
               end;
            10:begin  //计量单位类型
                 aEditor := edComboList;
                 ClearComboString;
                 with AdvStringGrid_IDX.Combobox do
                 begin
                   Items.Clear;
                   with DataSetUR_SYS_MEA_TYPE do
                   begin
                     First;
                     while not Eof do
                     begin
                       New(MyMEA_TYPERec);
                       MyMEA_TYPERec.F_MEA_TYPE_ID:=Fieldbyname('MEA_TYPE_ID').AsString;
                       MyMEA_TYPERec.F_MEA_TYPE_NAME:=Fieldbyname('MEA_TYPE_NAME').AsString;
                       MyMEA_TYPERec.F_IS_CHG:=Fieldbyname('IS_CHG').AsString;
                       Items.AddObject(MyMEA_TYPERec.F_MEA_TYPE_NAME,TObject(MyMEA_TYPERec));
                       next;
                     end;
                   end;
                 end;
               end;
             11:begin  //计量单位
                   aEditor := edComboList;
                   ClearComboString;
                   with AdvStringGrid_IDX.Combobox do
                   begin
                     Items.Clear;
                     if DataSetUR_SYS_MEA.Data<> null then
                     begin
                       with DataSetUR_SYS_MEA do
                       begin
                         First;
                         while not Eof do
                         begin
                           New(MyMEARec);
                           MyMEARec.F_MEA_TYPE_ID:=Fieldbyname('MEA_TYPE_ID').AsString;
                           MyMEARec.F_MEA_UNIT_ID:=Fieldbyname('MEA_UNIT_ID').AsString;
                           MyMEARec.F_MEA_NAME:=Fieldbyname('MEA_NAME').AsString;
                           Items.AddObject(MyMEARec.F_MEA_NAME,TObject(MyMEARec));
                           next;
                         end;
                       end;
                     end;
                   end;
                end;
  end;
end;