ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ
Главная » Статьи » Программирование » Delphi |
Создание компонента TTable без формы Решение 1 Действительно, любой компонент можно создать и без (вне) формы или любого другого дочернего компонента. Для этого я использую параметр nil: FDatabase := TDatabase.Create(nil); FUserTBL := TTable.Create(nil); FUserSource := TDataSource.Create(nil); Решение 2 Я привожу некоторый код, касающийся описываемой проблемы: он работал, когда я использовал его в большом приложении. Я не знаю специфического метода создания компонента TTable вне родителей, поэтому я пошел путем создания своего класса от TTable во время инициализации модуля. Удобство такого подхода объясняется наличием под рукой всегда готового к работе экземпляра класса, стоит всего-лишь добавить модуль к вашему приложению. Конечно, новый класс не должен иметь одиноко выглядящую процедуру со странной технологией фильтрации данных :=))), да и не помешала бы публикация нескольких событий, но этот пример призван все-го лишь продемонстрировать иной подход к решаемой задаче. interface type fake = class(Ttable) procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean); var MyTable : fake; implementation procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean); showmessage('Здравствуй, Вася'); Initialization MyTable := fake.create(nil); {проверка получением неких данных...} Finalization end. | |
Просмотров: 411 | Рейтинг: 0.0/0 |
Всего комментариев: 0 | |