TcxPopUpEdit с TcxTreeList

Question

Я работаю над одним проектом, где в основном я должен использовать TcxPopUpEdit Контроль, чтобы показать PopupList для каждого узла в TcxTreeList Контроль.

Я немного новичок в Delphi.

На данный момент я могу показать элемент управления Popup редактирования в 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;

Для Listbox как popupcontrol в свойстве PopupEdit объекта TcxTreelistColumn:

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;