Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

Отпишусь. Наверное ничего не выйдет.
Смог добраться к кнопкам: могу спрятать, деактивировать, кликнуть, но к диалогу записи не могу добраться...
Может кому пригодиться.
Код:
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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скачивание файла из интернета, не зная пути и имени файла. Скрипт 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 10:43
Проблемы с сохранением файла через SaveDialog Волк Общие вопросы Delphi 4 05.02.2009 04:27