Форум: "Начинающим";
Текущий архив: 2016.08.14;
Скачать: [xml.tar.bz2];

Вниз

Имитировать нахатие кнопок   Найти похожие ветки 

← →
TQuickReport   (2014-12-14 12:04) [0]

Возможно ли и каким образом можно имитировать нажатие кнопок Open, Save и др. на ToolBar (похоже, что они расположены именно там) после QuickReport.PreView?

---

← →
TQuickReport   (2014-12-14 12:05) [1]

после QuickRep.PreView

---

← →
Германн ©   (2014-12-14 13:39) [2]

> Возможно ли и каким образом можно имитировать нажатие кнопок
> Open, Save и др.

Зачем имитировать эти нажатия?

---

← →
TQuickReport   (2014-12-14 15:19) [3]

А где Вы сейчас находитесь и чем занимаетесь?
Я ведь не об этом спрашивал. Ну и ответ, если бы был по существу, меня больше бы удовлетворил.
Кстати у Вас появился конкурент-эксперт, Ellisium, он тоже старается не пропускать ветки, в которых можно отметиться ...

---

← →
brother ©   (2014-12-14 16:12) [4]

http://forum.sources.ru/index.php?showtopic=219505
Помогло?

---

← →
brother ©   (2014-12-14 16:12) [5]

зы. загуглил за 1 минуту...

---

← →
TQuickReport   (2014-12-14 17:07) [6]

> brother ©   (14.12.14 16:12) [5]
> зы. загуглил за 1 минуту...

К сожалению не помогло.
Кнопки по которым хочу программно кликнуть типа TToolButton, находятся на QuickRep

---

← →
TQuickReport   (2014-12-14 17:07) [7]

> brother ©   (14.12.14 16:12) [5]
> зы. загуглил за 1 минуту...

К сожалению не помогло.
Кнопки по которым хочу программно кликнуть типа TToolButton, находятся на QuickRep

---

← →
brother ©   (2014-12-14 17:13) [8]

что именно не получилось по примерам ссылки?

---

← →
Германн ©   (2014-12-14 17:43) [9]

> Кнопки по которым хочу программно кликнуть типа TToolButton,
>  находятся на QuickRep

В чужой программе или в своей?

---

← →
TQuickReport   (2014-12-14 18:00) [10]

Германн ©   (14.12.14 17:43) [9]
В чужой программе или в своей?

В моей программе на QuickRep

---

← →
TQuickReport   (2014-12-14 18:07) [11]

Это QuickRep.dfm
object QRStandardPreview: TQRStandardPreview
 Left = 229
 Top = 191
 Width = 652
 Height = 579
 Caption = "Print Preview"
 Color = clBtnFace
 ParentFont = True
 KeyPreview = True
 OldCreateOrder = True
 Position = poScreenCenter
 ShowHint = True
 OnClose = FormClose
 OnCreate = FormCreate
 OnKeyDown = FormKeyDown
 OnResize = FormResize
 PixelsPerInch = 96
 TextHeight = 13
 object StatusBar: TStatusBar
   Left = 0
   Top = 538
   Width = 644
   Height = 19
   Panels = <
     item
       Alignment = taRightJustify
       Text = "0%"
       Width = 40
     end
     item
       Text = "Page"
       Width = 50
     end>
   SimplePanel = False
 end
 object ToolBar1: TToolBar
   Left = 0
   Top = 0
   Width = 644
   AutoSize = True
   BorderWidth = 2
   Flat = True
   Images = Images
   TabOrder = 1
   object ToolButton1: TToolButton
     Left = 0
     Top = 0
     Width = 8
     Caption = "ToolButton1"
     ImageIndex = 12
     Style = tbsDivider
   end
   object ZoomFit: TToolButton
     Left = 8
     Top = 0
     Hint = "Zoom to fit"
     Caption = "ZoomFit"
     Grouped = True
     ImageIndex = 0
     Style = tbsCheck
     OnClick = ZoomToFitClick
   end
   object Zoom100: TToolButton
     Left = 31
     Top = 0
     Hint = "100%"
     Caption = "Zoom100"
     Grouped = True
     ImageIndex = 1
     Style = tbsCheck
     OnClick = ZoomTo100Click
   end
   object ZoomToWidth: TToolButton
     Left = 54
     Top = 0
     Hint = "Zoom to width"
     Caption = "ZoomToWidth"
     Grouped = True
     ImageIndex = 2
     Style = tbsCheck
     OnClick = ZoomToWidthClick
   end
   object Separator1: TToolButton
     Left = 77
     Top = 0
     Width = 8
     Caption = "Separator1"
     ImageIndex = 3
     Style = tbsDivider
   end
   object FirstPage: TToolButton
     Left = 85
     Top = 0
     Hint = "First page"
     Caption = "FirstPage"
     ImageIndex = 3
     OnClick = FirstPageClick
   end
   object PreviousPage: TToolButton
     Left = 108
     Top = 0
     Hint = "Previous page"
     Caption = "PreviousPage"
     ImageIndex = 4
     OnClick = PrevPageClick
   end
   object ToolButton2: TToolButton
     Left = 131
     Top = 0
     Hint = "Next page"
     Caption = "NextPage"
     ImageIndex = 5
     OnClick = NextPageClick
   end
   object LastPage: TToolButton
     Left = 154
     Top = 0
     Hint = "Last page"
     Caption = "LastPage"
     ImageIndex = 6
     OnClick = LastPageClick
   end
   object Separator2: TToolButton
     Left = 177
     Top = 0
     Width = 8
     Caption = "Separator2"
     ImageIndex = 7
     Style = tbsDivider
   end
   object PrintSetup: TToolButton
     Left = 185
     Top = 0
     Hint = "Printer setup"
     Caption = "PrintSetup"
     Enabled = False
     ImageIndex = 7
     OnClick = PrintSetupClick
   end
   object Print: TToolButton
     Left = 208
     Top = 0
     Hint = "Print"
     Caption = "Print"
     Enabled = False
     ImageIndex = 8
     OnClick = PrintClick
   end
   object Separator3: TToolButton
     Left = 231
     Top = 0
     Width = 8
     Caption = "Separator3"
     ImageIndex = 9
     Style = tbsDivider
   end
   object SaveReport: TToolButton
     Left = 239
     Top = 0
     Hint = "Save Report"
     Caption = "PrintSetup"
     ImageIndex = 10
     OnClick = SaveClick
   end
   object LoadReport: TToolButton
     Left = 262
     Top = 0
     Hint = "Load Report"
     Caption = "Print"
     ImageIndex = 9
     OnClick = LoadClick
   end
   object Separator4: TToolButton
     Left = 285
     Top = 0
     Width = 8
     Caption = "Separator4"
     ImageIndex = 11
     Style = tbsDivider
   end
   object ExitButton: TSpeedButton
     Left = 293
     Top = 0
     Width = 40
     Height = 22
     Caption = "&Close"
     OnClick = ExitClick
   end
 end
 object QRPreview: TQRPreview
   Left = 0
   Top = 32
   Width = 644
   Height = 506
   HorzScrollBar.Tracking = True
   VertScrollBar.Tracking = True
   Align = alClient
   TabOrder = 2
   OnPageAvailable = QRPreviewPageAvailable
   OnProgressUpdate = QRPreviewProgressUpdate
   PageNumber = 1
   Zoom = 100
 end
 object Images: TImageList
   Left = 54
   Top = 42
   Bitmap = {
     363000
     ...
 end
end
из QuickRpt.dcu
Много текста, но вдруг сможете подсказать

---

← →
Германн ©   (2014-12-14 18:13) [12]

> В моей программе на QuickRep

И нафига тогда такие извращения? Скачай с сайта автора QR пример создания собственного превью и сделай всё что нужно по этому примеру.
http://www.quickreport.co.uk/WebInfoPage.aspx?WebInfoID=623

---

← →
Ega23 ©   (2014-12-15 14:44) [13]

> Возможно ли и каким образом можно имитировать нажатие кнопок
> Open, Save и др. на ToolBar (похоже, что они расположены
> именно там) после QuickReport.PreView?
>


Я конечно очень давно QR не использовал, но, ЕМНИП, реакция на эти кнопки - суть вызов соответствующих методов Open, Save и др.
Т.е. "имитацией" будет вызов данного метода.
Или я чего-то недопонимаю?

---

← →
Германн ©   (2014-12-16 02:59) [14]

> Ega23 ©   (15.12.14 14:44) [13]
> Или я чего-то недопонимаю?

Правильно понимаешь. Только нормального полного хелпа по QR никогда не было.
Плавали - знаем. :)

---

← →
TQuickReport   (2014-12-16 13:41) [15]

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

MessageDlgPos("Имитировать клик по кнопке, например  <Cancel>",
               mtCustom, [mbOK, mbNo, mbCancel, mbIgnore], 0,
               Form1.Left + 20, Form1.Top + 20);

Спасибо, что уделяете внимание этой ветке

---

← →
Andy BitOff ©   (2014-12-16 14:54) [16]

Ты бы хоть код свой показал, а то получится, что ты превью вызываешь как модальное, а мы тут паримся.
ЗЫ с QT не работал, но не думаю, что это проблема ;-)

---

← →
Ega23 ©   (2014-12-16 16:44) [17]


if MessageDlgPos("Имитировать клик по кнопке, например  <Cancel>",
              mtCustom, [mbOK, mbNo, mbCancel, mbIgnore], 0,
              Form1.Left + 20, Form1.Top + 20) = mbOK then
begin
 Preview.Cancel;
end;

Ну или какой там метод вызывается, если cancel нажать.
QR у себя в XE4 не наблюдаю, поэтому точно сказать не могу.

---

← →
TQuickReport   (2014-12-16 17:17) [18]

> ты превью вызываешь как модальное, а мы тут паримся

Я не уверен, что вызываю модально
QuickRep1.Preview;
Хотя не совсем понимаю, что меняет модальность
Не могу добраться до "кнопки"

---

← →
TQuickReport   (2014-12-16 17:24) [19]

> Ega23 ©   (16.12.14 16:44) [17]

Я уже написал, что MessageDlgPos, именно как пример
В QuickRep1.Preview; мне нужно "кликнуть" (программно) по/на кнопкам Save, Print  и т.п., что в общем (по конкретным точкам) не имеет никакого принципиального значения.
Мне, конкретно, хотелось бы имитировать "клики" на доступные кнопки на "форме" QuikRep.PreView
Если сочтете вопрос не заслуживающег внимания, не обижусь ...

---

← →
TQuickReport   (2014-12-16 17:44) [20]

> Andy BitOff ©   (16.12.14 14:54) [16]

> ЗЫ с QT не работал, но не думаю, что это проблема ;-)

C MessageDlgPos не пробовал проверить свою идею?

---

← →
Германн ©   (2014-12-16 20:35) [21]

> TQuickReport   (16.12.14 17:17) [18]
>
> > ты превью вызываешь как модальное, а мы тут паримся
>
> Я не уверен, что вызываю модально
> QuickRep1.Preview;

Это не модально. Модально PrevuewModal
А показ самого окна превью в твоей задаче обязателен? Недостаточно лишь кнопок Save, Print и т.п. на твоей форме?

---

← →
Smile ©   (2014-12-17 07:33) [22]

> А показ самого окна превью в твоей задаче обязателен?

Обязателен, необходимо убедиться в достоверности (безошибочности) сформированного документа. Вывод в QuickReport (не в документы Word, Excel) спрограммирован осознано, чтобы затруднить пользователю редактирование (фальсификацию) документа.

---

← →
Amoeba_   (2014-12-17 18:17) [23]

Как создать свое окно предварительного просмотра QuickReport отчетов?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=489

---

← →
Германн ©   (2014-12-17 23:48) [24]

>  Smile ©   (17.12.14 07:33) [22]
>
> > А показ самого окна превью в твоей задаче обязателен?
>
> Обязателен, необходимо убедиться в достоверности (безошибочности)
> сформированного документа.

Если есть кому убедиться, значит и есть кому просто нажать на кнопку, а не имитировать это нажатие программно.

---

← →
TQuickReport   (2014-12-18 12:28) [25]

> Amoeba_   (17.12.14 18:17) [23]
> Как создать свое окно предварительного просмотра QuickReport отчетов?
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=489


Спасибо, хорошая ссылка

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2016.08.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.52 MB
Время: 0.001 c