Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 27.03.2016
Сообщений: 7
1

OpenDialog: как уйти от него?

11.06.2017, 11:52. Показов 994. Ответов 3
Метки нет (Все метки)

Доброго дня! есть часть кода см.ниже . Как сделать так чтобы файл Word отрывать не через OpenDialog а просто по нажатию на Button.

Delphi
1
2
3
4
5
begin
if OpenDialog1.Execute and (OpenDialog1.FileName <> '') then
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, false);
if OleContainer1.State <> osEmpty then OleContainer1.DoVerb(ovShow);
end;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2017, 11:52
Ответы с готовыми решениями:

Как прочесть файл через OpenDialog и записать строку с него в Memo
А как сделать так чтоб можна было бы прочесть текстовой файл через ОпенДиалог, записать строку с...

Как уйти из рабства таблиц
как или чем можно заменить все структурные таблицы притом не изменяя вид сайта вот код &lt;html&gt;...

Как можно уйти от больших чисел?
Я написал функцию, которая преобразует логическое условие в математическое выражение. Пример : ...

Передача значения из OpenDialog в TextBox на общей форме из процедуры нажатия кнопки вызова OpenDialog
Доброго времени суток, уважаемые форумчане. На форме лежат TextBox и Button. Элементы созданы...

3
500 / 346 / 200
Регистрация: 20.10.2016
Сообщений: 1,097
11.06.2017, 12:06 2
Лучший ответ Сообщение было отмечено mamaama00 как решение

Решение

Указать путь в коде, строку №2 удалить, №3 исправить:
Delphi
1
OleContainer1.CreateObjectFromFile('Сюда писать путь к файлу', false);
0
3760 / 3204 / 845
Регистрация: 29.08.2013
Сообщений: 21,153
Записей в блоге: 2
11.06.2017, 12:44 3
на всякий случай напомню ТС
if openDialog.Execute
then ...

Execute возвратит истину, если пользователь выбрал файл и нажал OK.
то есть
Цитата Сообщение от mamaama00 Посмотреть сообщение
if OpenDialog1.Execute and (OpenDialog1.FileName <> '')
вторая проверка лишняя
если нажать Отмену, то условие не сработает, а пустых файлов вроде в винде нет
0
0 / 0 / 0
Регистрация: 27.03.2016
Сообщений: 7
11.06.2017, 13:20  [ТС] 4
Всем спасибо помогло
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2017, 13:20

Как люди пытаются уйти от своих дефектов
Навеяло историями про тараканы в голове как первопричину багов приложения. Хотелось бы рассмотреть...

Печать и рисование, как уйти от двойной работы?
Здравствуйте! рисую на форме некоторые объекты (фигуры), линиями и потом эти же самые объекты...

Как правильно уйти на конец данных в Еxcel?
Как правильно уйти на конец данных в Еxcel? При нажатии CTRL+END указатель устанавливается на...

MediaPlayer. Как уйти от прямого указания на файл?
using System; using System.Windows.Media; using System.Media; static MediaPlayer...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.