• From: Новосибирск
  • Registered: 2019-11-03
  • Posts: 75

Topic: Две функции на кнопку (печать)

Добрый день, как сделать кнопку печать с двумя функциями?

Например:

1. - есть таблица (Table Grid),  и если в ней ничего не выбрано, то кнопка отправляет на печать всю таблицу учитывая фильтры, с подтягиванием инфы которая отсутствует в таблице, из БД.
2. - если в таблице выбран отдельный элемент, все выше описанное, но по выбранному элементу

Заранее благодарю.

С уважением.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Две функции на кнопку (печать)

Сделайте три кнопки.


1 кнопка с действием Печать, в которой выбраны компоненты для фильтравции, кроме TableGrid
2 кнопка с действием Печать, в которой выбран только компонент TableGrid


данные две кнопки сделайте невидимыми (Visible = False)


3. кнопка со скриптом

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if Form1.TableGrid1.dbItemID =-1 then Form1.Button2.Click else Form1.Button3.Click;
end;
Dmitry.

3 Reply by Patriot10200 (edited by Patriot10200 2020-04-12 12:52:55)

  • From: Новосибирск
  • Registered: 2019-11-03
  • Posts: 75

Re: Две функции на кнопку (печать)

Доброго дня, подскажите скрипт на нажатие 2-х кнопок т.е.- есть 3 кнопки, нажимаешь одну, нажимаются две другие, 2 сохраняет запись а 3 отправляет только сохраненную запись на печать. Спасибо

С уважением.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Две функции на кнопку (печать)

Patriot10200 wrote:

Доброго дня, подскажите скрипт на нажатие 2-х кнопок т.е.- есть 3 кнопки, нажимаешь одну, нажимаются две другие, 2 сохраняет запись а 3 отправляет только сохраненную запись на печать. Спасибо

Form1.Button1.Click;
Form1.Button2.Click;
  • Registered: 2020-01-27
  • Posts: 49

Re: Две функции на кнопку (печать)

procedure Form1_Button3_OnClick (Sender: TObject; Action: string);
begin
Form1.Button1.Click;
Form1.Button2.Click;
end;

Не забываем в Событие OnClick указать Form1_Button3_OnClick

Form1 - форма в которой находится кнопка
Button1, Button2 - названия кнопок
Click - это действие для кнопки

  • From: Новосибирск
  • Registered: 2019-11-03
  • Posts: 75

Re: Две функции на кнопку (печать)

Спасибо)

sibprogsistem wrote:
Patriot10200 wrote:

Доброго дня, подскажите скрипт на нажатие 2-х кнопок т.е.- есть 3 кнопки, нажимаешь одну, нажимаются две другие, 2 сохраняет запись а 3 отправляет только сохраненную запись на печать. Спасибо

Form1.Button1.Click;
Form1.Button2.Click;
С уважением.