• Registered: 2016-12-27
  • Posts: 50

Topic: TTreeView

Уважаемый DriveSoft если вас не затруднит я бы хотел понять возможно ли строить древовидные списки? Класс по видимому присутствует но как работать с ним не знаю.
Спасибо.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: TTreeView

В этой теме
http://myvisualdatabase.com/forum/viewtopic.php?id=3006


вам нашли пример реализации TreeView скриптом, но он довольно трудный, в будущем планируется его реализация без скриптов.

Dmitry.
  • Registered: 2015-10-09
  • Posts: 115

Re: TTreeView

DriveSoft wrote:

В этой теме
http://myvisualdatabase.com/forum/viewtopic.php?id=3006


вам нашли пример реализации TreeView скриптом, но он довольно трудный, в будущем планируется его реализация без скриптов.

Планируете ли в ближайшее время реализовать?

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: TTreeView

Вопрос по структуре данных для организации древовидных списков.

Добавить ссылку на самого себя нельзя, добавляю обычное числовое поле, как в примерах:
http://f2.s.qip.ru/SwgAVRC5.png

Но прикрутить комбобокс к нему не получается sad

http://f6.s.qip.ru/SwgAVRC7.png


Правильно ли я понимаю, что на данный момент единственная возможность редактировать id_parent - это прямой ввод ID-записи?

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: TTreeView

Evgeniy D
Пока не могу обещать в ближайшее время.

Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: TTreeView

k245
В свойство ForeignKey можете указать название таблицы main_menu", но в данном случае сохранение записи придется реализовать скриптом.

Dmitry.
  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: TTreeView

Спасибо, Дмитрий, всё получилось:
http://f6.s.qip.ru/SwgAVRCd.png

Прописал в свойства main_menu  (в списке оно не отображается, нужно набрать ручками) и добавил пару скриптов:

procedure frmMainMenuEdit_cmbIdParent_OnChange (Sender: string);
begin
  if frmMainMenuEdit.cmbIdParent.dbItemID = -1 then
    frmMainMenuEdit.edtIdParent.Text := ''
  else
    frmMainMenuEdit.edtIdParent.Text := inttostr(frmMainMenuEdit.cmbIdParent.dbItemID);
end;

procedure frmMainMenuEdit_OnShow (Sender: string; Action: string);
begin
  if frmMainMenuEdit.edtIdParent.Text<>'' then
    frmMainMenuEdit.cmbIdParent.dbItemID := StrToInt(frmMainMenuEdit.edtIdParent.Text)
  else
    frmMainMenuEdit.cmbIdParent.dbItemID := 0;
end;

Компонент frmMainMenuEdit.edtIdParent - невидимый, сохранение - стандартное.

Визуальное программирование: блог и телеграм-канал.

k245's Website