Zugriff auf dynamisch erstellte Komponente

[Blup]

Bitte Quellcode wegen der Lesbarkeit mit zutreffendem Delphi- oder Code-Tag klammern, dann bleibt die Formatierung im wesentlichen erhalten. Dafür gibts im Bearbeitungsformular auch Schaltflächen.

Den QReport hab ich nicht installiert, aber im Prinzip sollte es doch so funktionieren:

Delphi-Quellcode:

procedure TGridReport.MyDetailBeforePrint({...});
begin
  {...}
end;

// Ereignisbehandlung zuweisen
GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint;

[wendelin]

Hallo Omata,

ich meine damit: Tabellierpaper bedeutet das die ZEILEN im Report der besseren Lesbarkeit halber alternierend z.B. in weiss - grün - weiss -
grün u.s.w. dargestellt werden s.u. Natürlich kann auch eine andere
Farbkombination gewählt werden.

begin
If GridReport.DetailBandXXX.Color = clWhite THEN
GridReport.DetailBandXXX.Color := clMoneyGreen ELSE
GridReport.DetailBandXXX.Color := clWhite;
end;
Dennoch vielen Dank für die schnelle Bearbeitung

[wendelin]

Hallo FredlFesl

mag zwar ein guter Tipp sein, ist mir aber deutlich zu teuer!
599 - 1999 $ !!
Habe schon mit RaveReport gearbeitet, benötige ich nicht, da zu
komplex und für meine Anforderungen überdimensioniert.

Dennoch danke für die schnelle Bearbeitung.
P.S. Was bedeutet das : &%&$%"§$" ??

[wendelin]

Hallo Blup,

Vielen Dank für die schnelle Antwort, aber so geht es leider nicht.
Vielleicht stelle ich mich aber auch nur doof an.
Kannst Du Deinen Vorschlag etwas näher erläutern ?

[FredlFesl]

Hallo wendelin,

Ich implementiere alternierende Zeilen immer mit

Delphi-Quellcode:

If Odd (MyDataset.Recno) Then
  Band.Color := clWhite
else
  Band.Color := clGray;

[Blup]

Zitat von wendelin:

..., 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;

[wendelin]

Hallo Blup, vielen Dank für Deine Mühe,
aber ich glaube,dass ich mich sehr... anstelle.

type
TGridReport = class(TForm)
GridRep: TQuickRep;
procedure GridRepPreview(Grid : TDBGrid);
procedure GridRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure MyDetailBeforePrint({...}); // <--- müssen hier Param. rein und wenn ja, welche ? *
*
procedure TGridReport.GridRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
// dem DetailBand Ereignisbehandlung zuweisen
GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint({...}); // <--- müssen hier Param. rein und wenn ja, welche ?
// Error Zeile.188
end;

procedure TGridReport.MyDetailBeforePrint({...}); // müssen hier Param. rein und wenn ja, welche ?
begin
If GridReport.DetailBand.Color = clWhite THEN // error Z. 193
GridReport.DetailBand.Color := clMoneyGreen ELSE
GridReport.DetailBand.Color := clWhite;
end;
Ich schick die mal die Fehlerliste des Compilers:

[Error] DBQRGridReport.pas(188): Incompatible types: 'TQRBandBeforePrintEvent' and 'procedure, untyped pointer or untyped parameter'
[Error] DBQRGridReport.pas(193): Undeclared identifier: 'DetailBand'
[Error] DBQRGridReport.pas(193): 'THEN' expected but identifier 'Color' found

[wendelin]

Hallo FredlFesl,

Danke für Deine schnelle Antwort, aber es liegt NICHT an der
alternierenden Farbauswahl, sondern daran,das der Compiler die Komponente "Band".Property nicht erkennt. Ist ja auch logisch, da diese erst zur Laufzeit erzeugt wird und im interface NICHT deklariert ist.

If Odd (MyDataset.Recno) Then
Band.Color := clWhite
else
Band.Color := clGray;