Итак, объект Application загружен в память компьютера, и у нас есть доступ
к нему через переменную W:variant. Исследуем свойства этого объекта. Об-
ратим внимание на коллекцию Documents. Она содержит документы, их
свойства и методы для работы с ними. Элементами коллекции являются
открытые в настоящий момент документы. Доступ к ним осуществляется
через объекты Item(doc:variant), где doc — имя или индекс документа в кол-
лекции. Поле Count коллекции содержит количество элементов коллекции,
если Count=0, то нет ни одного открытого документа. Создадим новый до-
кумент. Для этого используем метод ADD этой же коллекции. Разместим в
форме кнопку, в процедуру отклика которой на нажатие запишем следую-
щий текст:
Создание документа в коллекции документов
procedure TForml.Button2Click(Sender: TObject);
begin
W.Documents.Add;
end;
После выполнения метода ADD будет создан документ, который отобразит-
ся в окне приложения (рис. 5.2).
Обращаться к методу ADD коллекции Documents можно как без аргумен-
тов, так и с аргументом. Когда аргумента нет, создается обычный документ.
Если метод вызывается с аргументом (строкой-указателем на файл шабло-
на), то создается документ по шаблону. В комплекте поставки MS Office
есть несколько шаблонов, которые вы, вероятно, используете в своей рабо-
те. Шаблоны находятся в папке ...\Microsoft О^1се\Шаблоны. Для своих при-
ложений можно создать дополнительные шаблоны документов, например
шаблон формы платежного поручения или налоговой декларации. В даль-
нейшем, используя метод ADD с указанием на шаблон, легко создать нуж-
ный документ, заполняемый информацией из программы. Использование
шаблонов при формировании новых документов позволит создавать гибкие
и удобные для пользователя приложения в среде Delphi. Создадим новый
документ на основе шаблона. Для этого разместим в форме кнопку и напи-
шем следующий фрагмент программы.
Рис. 5.2. Документ, созданный методом ADD без аргументов
Рис. 5.3. Документ, созданный методом ADD с использованием шаблона
Создание документа по шаблону
procedure TForml.Button3Click(Sender: TObject);
var dir_:string;
begin
GetDir(0,dir_);
if not OpenDialogl.Execute then begin chdir(dir_); exit; end;
chdir(dir_);
W.Documents.Add(OpenDialogl.FileName);
end;
Данный фрагмент программы позволяет открыть диалоговое окно, найти и
выбрать файл шаблона, используемый при создании нового документа. Вы-
берем файл Стандартное резюме.DOT из папки ...\Microsoft О$1се\Шаблоны
\Другие документы. Результат выполнения метода ADD представлен на
рис. 5.3.
Если требуется внести изменения в созданный ранее документ, тогда от-
крываем его, используя методы коллекции Documents.
Опубликовал Kest
September 14 2009 09:10:07 ·
0 Комментариев ·
7117 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
