Fórum Pressionar tecla quot;ESCquot; e fechar ReportBuilder #283714

vc pode fazer assim :

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ppPrnabl, ppClass, ppCtrls, ppBands, ppCache, ppComm, ppRelatv,
ppProd, ppReport;

type
TForm1 = class(TForm)
ppReport1: TppReport;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ppReport1PreviewFormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Fecha(Sender: TObject; var Key: Word;
Shift: TShiftState);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Fecha(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
TForm(Sender).Close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ppReport1.Print;
end;

procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject);
begin
ppReport1.PreviewForm.OnKeyDown := Fecha;
end;

end.

qualquer duvida e so falar...

Leandro

vc pode fazer assim:

crie uma procedure assim :
procedure TForm1.Fecha(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
TForm(Sender).Close;
end;

depois no evento OnPreviewFormCreate do ReportBulder faça assim:

procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject);
begin
ppReport1.PreviewForm.OnKeyDown := Fecha;
end;

ae e só mandar ele mostrar a tela de preview com ppReport.print, e ae digitar esc para ele fechar

end.

qualquer duvida e so falar...

Leandro