Ahhh, el ejemplo que pusiste funciona porque lo estás haciendo en el TForm1.
Lo que yo digo es dentro de la estructura de FastReport (PascalScript)
Transcribo lo que tengo:
En un DataModule tengo un frxReport (frxTapaBoletinViejo), entrando a él quiero hacer que FastReport me cuente que caja de texto ha sido impresa, de ahí que me pareció lo mas adecuado que eso salga a través de EventLog de Delphi.
Esto es lo que tengo en el DataModule
Código Delphi
[-]
unit dmReportes;
interface
uses
System.SysUtils, System.Classes, frxRich, frxClass, sRichEdit,
Vcl.ExtCtrls, frxDBSet, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, Data.DB,
FireDAC.Comp.DataSet, FireDAC.Comp.Client, frxExportPDF, frxExportRTF,
Datasnap.Provider, Datasnap.DBClient, frxDesgn, dataModule, frxExportText,
Winapi.Windows;
type
TdtmReportes = class(TDataModule)
frxTapaBoletinViejo: TfrxReport;
private
public
end;
var
dtmReportes: TdtmReportes;
implementation
{$R *.dfm}
end.
Ahora bien, entro en el frxReport (Edit report), me aparecen las herramientas de edición propias de FastReport.
Y en la parte de código (code), es donde intento poner el código que he puesto en post's anteriores.
Dentro de la pestaña Code he puesto lo siguiente:
Código Delphi
[-]
uses
System.SysUtils;
procedure avisoCOMPROBANTEOnAfterPrint(Sender: TfrxComponent);
begin
OutputDebugString('Hola');
end;
begin
end.
Al intentar correrlo, el error es "Identifier expected" y el cursos se posiciona en la "S" (la primera) de System.SysUtils
En el formulario FastReport solament tengo una cajita de texto "AvisoComprobante" que es un Memo común de FastReport.