Currently it is possible to take control of the email button's OnClick event by accessing the previewer toolbar. For the next release we added an email button property to the PrintPreviewer making this much easier.
Inside the Report.PreviewFormCreate event you can assign the event like so...
uses ppPrvDlg;
procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject); begin TppPrintPreview(ppReport1.PreviewForm).Toolbar.Items[1].OnClick := EmailOnClickEvent; end;
Comments
Currently it is possible to take control of the email button's OnClick event
by accessing the previewer toolbar. For the next release we added an email
button property to the PrintPreviewer making this much easier.
Inside the Report.PreviewFormCreate event you can assign the event like
so...
uses
ppPrvDlg;
procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject);
begin
TppPrintPreview(ppReport1.PreviewForm).Toolbar.Items[1].OnClick :=
EmailOnClickEvent;
end;
--
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com