Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 14.01.2019, 16:03   #1
yorri
Пользователь
 
Регистрация: 17.04.2015
Сообщений: 21
Репутация: 10
По умолчанию QuickRepot SaveDialog доступ к имени файла

Есть QuickRepot 3.0.9. Delphi6.
Там есть кнопка сохранения репорта.
qp.png
Нужно в диалоге сохранения задать свое имя файла.
Не знаю как туда добраться.
Спасибо.
yorri вне форума   Ответить с цитированием
Старый 14.01.2019, 17:32   #2
yorri
Пользователь
 
Регистрация: 17.04.2015
Сообщений: 21
Репутация: 10
По умолчанию

Отпишусь. Наверное ничего не выйдет.
Смог добраться к кнопкам: могу спрятать, деактивировать, кликнуть, но к диалогу записи не могу добраться...
Может кому пригодиться.
Код:

procedure TForm16.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
    s:string;
    prevFrm : TForm;
    tBar, tBut, tPrev : TComponent;
    j,k:Integer;

begin
    prevfrm := TForm( Form16.QuickRep1.QRPrinter.Client.parent);
    for j := 0 to prevfrm.controlcount-1 do
     begin
         tBar := prevfrm.controls[ j ];
         if tBar is TToolbar then
         begin
             for k := 0 to TToolbar(tBar).controlcount-1 do
             begin
                tBut := TToolbar(tBar).controls[ k ];

                if tBut is TToolbutton then
                 begin
                      s:= TToolbutton(tBut).Name;
                      if s='SaveReport' then
                       begin

                         TToolbutton(tBut).OnClick(self); //можна кликнуть

                      end;

                 end;

             end;
         end;
     end;
end;

yorri вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скачивание файла из интернета, не зная пути и имени файла. Скрипт Microsoft Office Excel 0 14.09.2013 22:14
Получить имя файла из ссылки(в конце ссылки нет имени файла) Человек_Борща Работа с сетью в Delphi 11 05.06.2011 15:15
изменение имени файла tiger() C++ Builder 2 21.04.2011 14:21
длина имени файла dimcoff Общие вопросы Delphi 4 23.03.2010 11:43
Проблемы с сохранением файла через SaveDialog Волк Общие вопросы Delphi 4 05.02.2009 05:27


18:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru