Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закрытие FastReport по кнопке / 25 сообщений из 25, страница 1 из 1
14.11.2019, 13:24
    #39889055
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
В диалоговое окно FR вставить кнопки ОК и Отмена. У Отмены ModalResult=mrCancel. При запуске, после нажатия Отмена закрывается Диалоговое окно, а окно предварительного просмотра (самого FR) остается. Подскажите как сделать, чтобы по нажатию кнопки Отмена закрывалось не только Диалоговое окно, но и окно самого FR?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2019, 13:45
    #39889079
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
ЧЯДНТ ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2019, 13:53
    #39889089
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr
ЧЯДНТ ?

После вызова FR из основной программы, а не просто в конфигураторе FR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2019, 14:16
    #39889108
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Я не вижу, как вы вызываете Репорт из основной программы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2019, 14:45
    #39889135
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr
Я не вижу, как вы вызываете Репорт из основной программы

Вот после нажатия Cancel Диалоговое окно закрывается, а окно Предварительного просмотра остается. А надо чтобы окно Предварительного просмотра тоже закрывалось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2019, 10:10
    #39889405
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
А код где ?
Сделайте тестовый пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2019, 10:13
    #39889406
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr
А код где ?
Сделайте тестовый пример

в этом тестовом примере, который на гифке, код пустой. Кнопки реагируют по ModalResult.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2019, 10:33
    #39889417
ёёёёё
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
koo3mee4
DimaBr
А код где ?
Сделайте тестовый пример

в этом тестовом примере, который на гифке, код пустой. Кнопки реагируют по ModalResult.

https://www.sql.ru/forum/actualfile.aspx?id=22016839] Приложенный файл (Untitled.fr3 - 3Kb)

Круто, кода нет, а окошки какие-то появляются...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2019, 10:46
    #39889425
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Зеремил в коде присвоение, так как переменной у меня нет.


...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2019, 09:58
    #39894281
Olga_Kireeva
Olga_Kireeva
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr, подскажите, пожалуйста, решили проблему? Если да, то как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2019, 11:31
    #39894340
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Никакой проблемы небыло.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2019, 12:14
    #39894384
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
koo3mee4,

попробуйте повесить на кнопку Cancel обработчик OnClick

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure BitBtn2OnClick(Sender: TfrxComponent);
var
   Prv : TCustomControl;
   Frm : TForm;                                  
begin
   Prv := TCustomControl(Report.Preview);

   Frm := TForm(Prv.Parent);
   Frm.Close;                                    
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2019, 12:31
    #39894397
Olga_Kireeva
Olga_Kireeva
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Кроик Семён, заработало! Спасибо большое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2019, 14:12
    #39905547
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Кроик Семён
koo3mee4,

попробуйте повесить на кнопку Cancel обработчик OnClick

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure BitBtn2OnClick(Sender: TfrxComponent);
var
   Prv : TCustomControl;
   Frm : TForm;                                  
begin
   Prv := TCustomControl(Report.Preview);

   Frm := TForm(Prv.Parent);
   Frm.Close;                                    
end;


Abstract Error ошибка выходит при нажатии Cancel.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2019, 14:22
    #39905559
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
тут решение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2019, 05:59
    #39905897
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr
тут решение

какой код еще предоставить, если уже скидывал готовый пример .fr3?) Вот еще раз он же, но с последними изменениями. Если в FR запускать предварительный просмотр, с заранее закомментированным db.Handle := <DBHandle>, то по кнопке Cancel вроде все хорошо и закрывается. Если проверять из основной программы, откуда должен открываться файл, то раскомментирую db.Handle := <DBHandle> и после нажатия Cancel выходит ошибка Abstract Error.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2019, 07:35
    #39905911
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Вы показываете лишь шаблон отчёта, а откуда появляется <DBHandle> неизвестно.
В шаблоне, убрав ваше присваивание всё срабатывает как нужно.
Поэтому, я и говорю, СДЕЛАЙТЕ ТЕСТОВЫЙ ПРИМЕР, программа из одной формы, кнопки с обработкой вызова отчёта и самого отчёта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2019, 14:48
    #39906682
gpi
gpi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Попробуйте

Код: pascal
1.
if frxReport1.PrepareReport then frxReport1.ShowPreparedReport;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2019, 12:47
    #39906955
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Разобрался. Проблема была в основной программе, откуда запускается документ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2019, 14:11
    #39907028
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Второй ответ в этом же топике
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
11.11.2021, 14:04
    #40111011
Mabus13
Mabus13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
koo3mee4, ну шо получилось инфоклинику научить саму закрывать долбаное окно предпросмотра? =))) Или решения так и нет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2021, 14:43
    #40111023
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Mabus13, топикстартер написал.
koo3mee4Разобрался. Проблема была в основной программе, откуда запускается документ
То есть FastReport не при чём, это ручки шаловливые виноваты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2021, 22:49
    #40111166
Bali
Bali
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr

То есть FastReport не при чём, это ручки шаловливые виноваты

Еще как причем.
В руководстве программиста "Выполнение отчета" в первой строке стоит:
Запуск отчета на выполнение осуществляется одним из двух методов TfrxReport:
procedure ShowReport(ClearLastReport: Boolean = True);
function PrepareReport(ClearLastReport: Boolean = True): Boolean;
...
В большинстве случаев удобнее использовать первый метод.
При таком запуске, при нажатие на Cancel, окно предварительного просмотра не закрывается.
Решается добавлением в TfrxEngine.Run
Код: pascal
1.
2.
3.
4.
5.
6.
Report.DataSets.Initialize;
        Report.DoNotifyEvent(Report, Report.OnStartReport);
        if not Report.Terminated then //эту строку добавить
        if not ARunDialogs or RunDialogs then
        begin
          Result := True;


Лет 10 назад я им писал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2021, 02:55
    #40111194
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
Bali
При таком запуске, при нажатие на Cancel, окно предварительного просмотра не закрывается.

Вдумайтесь. Фастом пользуются десятки тысяч (а может и сотни) человек, и у всех ЗАКРЫВАЕТСЯ.
Иначе бы Форум был бы ЗАВАЛЕН подобными вопросами.
И все запускают отчёты методом ShowReport, ведь другого не придумали.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2021, 17:31
    #40111727
Bali
Bali
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрытие FastReport по кнопке
DimaBr,
Спасибо за подсказку. В сентябре 2008 года не работало.
При обновлении на одно исправление меньше стало.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закрытие FastReport по кнопке / 25 сообщений из 25, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 415ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2036879]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 276ms
total:  415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]