JvDBTreeView

[_SERGEYX_]

Как-то не приходилось юзать TreeView....
Попробовал для таблицы использовать JvDBTreeView. Вроде, все ок, но...
вопрос такой: как определить что элемент является последним дочерним в ветке?
Попробовал так:
в OnExpanding написал
if Node.getFirstChild.Data = nil then .....
Ошибку выбрасывает.

[mihali4]

Поменьше вольностей в обращении с TreeView...

var nod: TTreeNode;
begin
nod:=TreeView1.Selected.getFirstChild;
if nod<>nil then
ShowMessage('Не последний') else
ShowMessage('Последний');
end;

[andrey4623]

Хе )

[_SERGEYX_]

mihali4, сенкс".
Ох.., времени нет, но все же напишу..., для тех, кто собирается использовать DBTreeView...
Перепробовал подобных компонентов кучу. Во всех чето-то не хватает...
Пока не не "напоролся" на торри.нет на бесплатный компонент DynamicTreeView. В приложенном примере таблица на 50 000 записей работает без каких-либо тормозов. Респек авторам.
Правда, есть одна недоработка... А именно:
Компонент DTTableTree отказывается работать, если DataSource.DataSet не является TTable (т.е. не является BDE). Правда? Мы такие бестолковые? А если мы хотим использовать TABSTable? ... (Спецам дальше не читать, новичкам рекомендуется...)...
В файле DTTableTree.pas... там, где написано

  if (DataSource.DataSet is TTable) then
  begin
    FCloneDataSet := TTable.Create(nil);
    with FCloneDataSet as TTable do
    begin
      DatabaseName := (Self.DataSource.DataSet as TTable).DatabaseName;
     TableType := (Self.DataSource.DataSet as TTable).TableType;
      TableName := (Self.DataSource.DataSet as TTable).TableName;
      Active := True;
    end;
  end;

Добавим к написанному

  if (DataSource.DataSet is TABSTable) then
  begin
    FCloneDataSet := TABSTable.Create(nil);
    with FCloneDataSet as TABSTable do
    begin
      DatabaseName := (Self.DataSource.DataSet as TABSTable).DatabaseName;
      TableName := (Self.DataSource.DataSet as TABSTable).TableName;
      Active := True;
    end;
  end;

ну, и, конечно добавим в Users ABSMain... или то, что нужно
добавить для нашей таблицы.