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

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

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

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

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

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

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


...
Рейтинг: 0 / 0
15.11.2019, 10:46
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39894281
Olga_Kireeva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Olga_Kireeva
Гость
DimaBr, подскажите, пожалуйста, решили проблему? Если да, то как?
...
Рейтинг: 0 / 0
26.11.2019, 09:58
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39894340
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Никакой проблемы небыло.
...
Рейтинг: 0 / 0
26.11.2019, 11:31
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39894384
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
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:14
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39894397
Olga_Kireeva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Olga_Kireeva
Гость
Кроик Семён, заработало! Спасибо большое
...
Рейтинг: 0 / 0
26.11.2019, 12:31
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39905547
koo3mee4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
koo3mee4
Участник
Кроик Семён
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:12
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39905559
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
тут решение
...
Рейтинг: 0 / 0
19.12.2019, 14:22
| Ответить | Цитировать | Написать  
Закрытие FastReport по кнопке
    #39905897
koo3mee4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
koo3mee4
Участник
DimaBr
тут решение

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

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

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


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