[Tipy a Triky] Definované upozornění při tisku formulářem

PříspěvekNapsal: 08.04.2009 14:59
od jan.havranek
Při tisku formulářem se může hodit zobrazení dialogu, který ale nemá být součástí vytištěného formuláře. Může sloužit pouze jako upozornění pro obsluhu.

V ReportBuilderu na záložce Calc je třeba pro událost Report.BeforePrint definovat funkci ShowMessage, např. takto:
Kód: Vybrat vše
procedure ReportBeforePrint;
begin
  ShowMessage('Vlastní text upozornění!');
end;

Tato definice před vlastním náhledem nejprve zobrazí zadaný text ve vlastním dialogovém okně, po jeho zavření se teprve vytvoří náhled. Samozřejmě je možné obsah textu podmínkovat, je možné ho i napojit na datové zdroje a údaje do něj dotahovat z databáze atd.

Příklad dotažení poznámky dokladu do dialogu:
Kód: Vybrat vše
procedure ReportBeforePrint;
begin
  ShowMessage(TabDokladyZbozi['Poznamka_255']);
end;