Delphi - cxGrid字段类型设定为ComboBox 并实现动态加载Item

cxGrid设定字段类型为ComboBox

在cxGrid中选中需要设定的字段;

单击F11调出属性控制面板,在Properties下拉选项中选中ComboBox,完成字段类型的设定。

Delphi - cxGrid字段类型设定为ComboBox 并实现动态加载Item

 

cxGrid ComboBox类型字段动态赋值,添加Item

动态赋值代码如下:

1 TcxComboBoxProperties(cxGrid1DBTableView1GROUPNAME.Properties).Items.Text := value;

动态添加Item代码如下:

procedure ComboAdd(Sender: Tstrings; SQLStr, v_Param: string);
begin
    ComboAddEx(MainForm.OraSession1, Sender, SQLStr, v_Param);
end;

procedure ComboAddEx(v_Session: TOraSession; Sender: Tstrings; SQLStr, v_Param: string);
var
    i, r: Integer;
    Q: ToraQuery;
    S: tstringlist;
begin
    s := tstringlist.Create;
    s.Clear;
    Q := ToraQuery.Create(nil);
    Q.Session := v_Session;
    OpenQuery(Q, SQLStr);
    SetParam(Q, v_Param);
    Q.Open;
    Q.first;
    while not Q.Eof do
    begin
        Sender.Add(Q.Fields[0].AsString);
        Q.next;
    end;
    Q.Close;
    Q.Free;
end;

//动态加载Item
var
    zm: TRzComboBox;
begin
    MainForm.dxBarListWindows.Items.AddObject(Caption, self);
    zm: TRzComboBox;
    zm.Items.Clear;
    ComboAdd(zm.Items, select DISTINCT FiledName from TableName t, ‘‘);
  TcxComboBoxProperties(cxGrid1DBTableView1FieldName.Properties).Items.Text := zm.Items.Text;
    zm.ItemIndex := 0;
    zm.OnClick(self);
end;

 

Delphi - cxGrid字段类型设定为ComboBox 并实现动态加载Item

上一篇:VS2017 Winform 设计器异常原因排查


下一篇:WInform中实现设置ZedGraph中曲线的X轴与Y轴的上限与下限