Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 45

  end;
 end; {for}
end; {with TabbedNotebook}

следующий код восстанавливает доступность страницы:

with TabbedNotebook do for I:= 0 to Pages.Count - 1 do begin
 TabIdent:= ValidIdentifier(Pages[I]) + 'Tab';
 if not TControl(FindComponent(TabIdent)).Enabled:= True;
end; {for}

Table

Создание компонента TTable без формы

Решение 1

Действительно, любой компонент можно создать и без (вне) формы или любого другого дочернего компонента. Для этого я использую параметр nil:

FSession:= TSession.Create(nil);
FDatabase:= TDatabase.Create(nil);
FSession.SessionName:= 'DBSession'
FDatabase.Connected:= False;
FDatabase.AliasName:= Database;
FDatabase.DatabaseName:= USER_DATABASE;
FDatabase.SessionName:= FSession.SessionName;
FUserTBL:= TTable.Create(nil);
FUserTBL.DatabaseName:= FDatabase.DatabaseName;
FUserTBL.SessionName:= FSession.SessionName;
FUserTBL.TableName:= USERTBL;
FUserTBL.IndexName:= USERSpIndex;
FUserSource:= TDataSource.Create(nil);
FUserSource.DataSet:= FUserTBL;

Решение 2

Я привожу некоторый код, касающийся описываемой проблемы: он работал, когда я использовал его в большом приложении. Я не знаю специфического метода создания компонента TTable вне родителей, поэтому я пошел путем создания своего класса от TTable во время инициализации модуля. Удобство такого подхода объясняется наличием под рукой всегда готового к работе экземпляра класса, стоит всего-лишь добавить модуль к вашему приложению. Конечно, новый класс не должен иметь одиноко выглядящую процедуру со странной технологией фильтрации данных :=))), да и не помешала бы публикация нескольких событий, но этот пример призван все-го лишь продемонстрировать иной подход к решаемой задаче.

unit Unit2;
interface
uses db, DBTables, dialogs;
type fake = class(Ttable)
 procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
end;
var
 MyTable: fake;
implementation
procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 showmessage('Здравствуй, Вася');
end;
Initialization
 MyTable:= fake.create(nil);
 With Mytable do begin
  DataBaseName:= 'dbdemos';
  TableName:= 'biolife';
  OnFilterRecord:= MyTable.fakeFilterRecord;
  Filtered:= true;
  active:= true;
 end;
 {проверка получением неких данных…}
 showmessage(MyTable.fields[1].asstring);
Finalization
 {Важно!  MyTable не имеет родителя, – уничтожаем объект сами, иначе память не высвобождается…}
 MyTable.free;
end.

TreeView

Ускорение работы TreeView

Представляем вашему вниманию немного переработанный компонент TreeView, работающий быстрее своего собрата из стандартной поставки Delphi. Кроме того, была добавлена возможность вывода текста узлов и пунктов в жирном начертании (были использованы методы TreeView, хотя, по идее, необходимы были свойства TreeNode. Мне показалось, что это будет удобнее).

Для сравнения:

TreeView:

128 сек. для загрузки 1000 элементов (без сортировки)*

270 сек. для сохранения 1000 элементов (4.5 минуты!!!)

HETreeView:

1.5 сек. для загрузки 1000 элементов – ускорение около 850%!!! (2.3 секунды без сортировки = stText)*