Содержание
- 2. OLE — это механизм, дающий возможность вставить в приложение документ, подготовленный в другом приложении. Когда вы
- 3. Механизм OLE может действовать двумя способами: • Внедрение (embedding). Внедренный объект становится частью того документа, в
- 4. Компонент OleContainer (на вкладке System) Основным компонентом для работы с OLE является OleContainer Этот компонент предоставляет
- 5. Обычный способ работы с компонентом OleContainer в ответ на требование пользователя открыть объект (например, нажатием кнопки)
- 6. КОМПОНЕНТЫ ДЛЯ КОНКРЕТНЫХ OLE-CEPBEPOB вкладка Servers содержит компоненты, предназначенные для встраивания документов, подготовленных конкретными серверами OLE
- 7. ПРИМЕР ПРИЛОЖЕНИЯ-КЛИЕНТА OLE procedure TForm1.FormCreate(Sender: TObject); begin OleContainerl.Align := alClient; OleContainerl.Ctl3D := false; // устанавливаем белый
- 8. В этом диалоговом окне можно выбрать либо создание нового объекта (на форме будет отображен пустой документ
- 9. КУДА ДЕЛОСЬ МЕНЮ? Когда вы открыли встроенный в ваше приложение документ Word для редактирования, вы могли
- 10. РЕДАКТИРОВАНИЕ ВСТРОЕННОГО ДОКУМЕНТА В ОТДЕЛЬНОМ ОКНЕ Можно запускать приложение-сервер OLE не в окне нашего приложения, а
- 11. РЕДАКТИРОВАНИЕ ВСТРОЕННОГО ДОКУМЕНТА В ОТДЕЛЬНОМ ОКНЕ Измените метод TForml. FormCreate вашего приложения следующим образом: procedure TForml.FormCreate(Sender:
- 12. КЛЮЧЕВЫЕ СЛОВА — это команды, которые можно послать этому объекту. Если в контейнер OLE за гружен
- 13. Пример программы Компоненты: • 2 х Panel • OleContainer • ListBox • Зх Button События компонентов:
- 14. Поместите все кнопки на панель Panell и привяжите ее к нижнему краю формы (Panell .Align =
- 15. procedure TForml.Button2Click(Sender: TObject); begin // копируем список ключевых слов загруженного объекта в список ListBox ListBoxl.Items.Assign(OleContainerl.ObjectVerbs); end;
- 16. ЧТЕНИЕ И СОХРАНЕНИЕ ДОКУМЕНТА OLE Следующий пример демонстрирует назначение методов LoadFromFile, CreateObjectFromFile, SaveToFile и SaveAsDocument и
- 17. procedure TForml.ButtonlClick(Sender: TObject); begin OleContainerl.CreateObjectFromFile(ExpandFileName('test.doc'), false); end; procedure TForml.Button2Click(Sender: TObject); begin OleContainerl.LoadFromFile('test.doc'); end ; procedure TForml.Button3Click(Sender:
- 18. Функция ExpandFileName необходима потому, что метод CreateObjectFromFile требует в качестве аргумента полного пути к файлу. Данные
- 19. Сейчас мы напишем приложение, обладающее всей функциональностью MS Word, MS Excel, графического редактора Paint и других
- 20. Строка меню нашего приложения будет содержать единственную группу команд Файл, позволяющую открывать документы разных типов. Открытый
- 21. Поместите на форму компоненты OleContainer, MainMenu, OpenDialog иSaveDialog. Разработке и использованию меню была посвящена глава 3.
- 22. procedure TForml.FormCreate(Sender: TObject); begin Caption := 'Универсальное приложение'; AutoSize := false; OleContainerl.Align : = alClient;
- 23. // устанавливаем белый фон OleContainerl.Ctl3D := false; II подгоняем размер объекта к размеру контейнера, сохраняя пропорции
- 24. procedure TForml.OpenOLEClick(Sender: TObject); begin II загружаем файл, выбранный в OpenDialog, непосредственно // как объект OLE if
- 26. Скачать презентацию