QRExtra incluye esta "Unit" en tu "Uses".
procedure TForm1.Button3Click(Sender: TObject);
var Dialogo: TOpenDialog;
begin
with TQRPHandler.Create do
try
Dialogo:= tOpenDialog.Create(Application);
Dialogo.Filter:='Archivo QuickReport|*.QRP';
if (Dialogo.Execute) then Filename := Dialogo.Filename;
Dialogo.free;
Preview;
finally
Free;
end;
end;
Un Saludo.
|