Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.464 Beiträge
 
Delphi 12 Athens
 
#9

AW: Zugriff auf dynamisch erstellte Komponente

  Alt 20. Jul 2011, 08:30
..., aber so geht es leider nicht.
Vielleicht stelle ich mich aber auch nur doof an.
Kannst Du Deinen Vorschlag etwas näher erläutern ?
Was genau geht nicht und warum nicht?

Ich versuchs mal etwas konkreter darzustellen:
Delphi-Quellcode:
type
  TGridReport = class(TForm)
    GridRep: TQuickRep;
    procedure GridRepPreview(Grid : TDBGrid);

    procedure GridRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean); // <- muss im Objektinspektor dem Ereignis des Reports "BeforePrint" zugewiesen sein

    procedure MyDetailBeforePrint({...}); // <- wird erst zur Laufzeit zugewiesen

{...}
  end;

implementation

procedure TGridReport.GridRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  // dem DetailBand Ereignisbehandlung zuweisen
  GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint;
end;

procedure TGridReport.MyDetailBeforePrint({...});
begin
  {...}
end;
  Mit Zitat antworten Zitat