delphi - TcxPopUpEdit 与 TcxTreeList

Question

我正在做一个项目，主要是我必须使用TcxPopUpEdit控件来显示控件中PopupList的每个节点TcxTreeList。

我对德尔福有点陌生。

现在我可以在TcxTreeList每个项目中显示弹出编辑控件。

现在的问题是我想从中获取选定的popupedit控件，Treelist 并且还想在控件中为节点的选择中的PopupEdit每个PopupEdit控件显示一些文本。Treelist

谁能帮我得到想要的结果？

任何类型的帮助都可以得到赞赏。

先感谢您。

Answer 1

快速解决方案是在 PropertiesCloseUp 中设置代码。

type
  TForm1 = class(TForm)
    cxTreeList1: TcxTreeList;
    cxTreeList1Column1: TcxTreeListColumn;
    cxTreeList1Column2: TcxTreeListColumn;
    cxPopupEdit1: TcxPopupEdit;
    procedure cxPopupEdit1PropertiesCloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxPopupEdit1PropertiesCloseUp(Sender: TObject);
begin
  if self.cxTreeList1.SelectionCount>0 then
  begin
    self.cxPopupEdit1.Text:= self.cxTreeList1.Selections[0].Values[cxTreeList1Column2.ItemIndex];
  end;
end;

对于 TcxTreelistColumn 的属性“PopupEdit”中的列表框作为弹出控件：

procedure TForm1.cxTreeList1Column2PropertiesCloseUp(Sender: TObject);
begin
  if self.cxListBox1.ItemIndex<>-1 then
  begin
    self.cxTreeList1.FocusedNode.Texts[self.cxTreeList1.FocusedColumn.ItemIndex]:=  self.cxListBox1.Items.Strings[self.cxListBox1.ItemIndex];
  end;
end;