![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Айра |
![]()
Сообщение
#1
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: ![]() ![]() ![]() |
Начала работать в Delphi, так что буду мучить глупыми и неочень вопросами...
![]() Может ли прога открыть и вывести на экран doc-файл со встроенными в него объектами (формулами)? Если может, то как? Расскажите пожалуйста, очень нужно. И еще просьба, дайте ссылку на стандартные процедуры и функции в Дельфе. Заранее спасиибо! ![]() |
![]() ![]() |
Айра |
![]()
Сообщение
#2
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: ![]() ![]() ![]() |
Вчера ночью (сегодня почти утром
![]() ![]() Вот что у меня получилось: Код unit proba; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtnrs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OleContainer1: TOleContainer; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ev: variant; begin if OpenDialog1.Execute then begin OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False); OleContainer1.DoVerb(ovShow); ev := 2; OleContainer1.OleObject.Protect(ev); { <--- !!! } end; end; end. Большая часть кнопок не работает, но если опять попытаться открыть файл (еще раз надовить на кнопку), а потом нажать отмена, то картина получится следующей: ![]() Потом помучалась еще над своей прогой ('работают' только первые 4 раздела), получилось следующее (у меня скроллер на форме появлялся сам, когда запускала ее): ![]() ![]() ![]() ![]() Вроде работает, но я особо над ней не издевалась... Жду различных отзывов... p.s. если как-то неправильно вставила файлы (или не те, что не исключено), то научите?... ![]() Сообщение отредактировано: Айра - 23.01.2007 22:16 |
![]() ![]() |
![]() |
Текстовая версия | 14.07.2025 13:53 |