Zugriff auf dynamisch erstellte Komponente

[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;

[FredlFesl]

Na dann pack sie doch da rein, wo sie sichtbar ist. Mach z.B. ein Feld daraus, also...

Delphi-Quellcode:

Type
  TMyReport = Class (TForm)
  ...
  private
     fBand : TQrDetailBand; // Oder wie auch immer die Klasse heißt
  ...

Kann es sein, das Dir gewisse Grundlagen fehlen?

[bcvs]

Zitat von wendelin:

Nun möchte ich wegen der besseren Lesbarkeit mit Hilfe von Procedure "BeforePrint" (s.u.) Tabellierpapier simulieren.
Beim Entwurf von QReport (zur Designzeit) gibt es keine Probleme.
In meinem Testprogramm jedoch gibt es zur Designzeit noch keine Komponente "DetailBandXXX". Ein weiteres Problem ist, dass mit jedem
neuen Aufruf von "GridRepPreview(Grid : TDBGrid)" wieder ein neues
Detailband erzeugt wird (und später freigegeben) wird.
Ich habe es schon mit TComponentList bzw. mit TObjectList probiert.
Kein Erfolg. Da ich ein reiner Hobbyprogrammierer bin wäre ich für
ein paar Anregungen oder Lösungsansätze sehr dankbar.

Wendelin

Wenn ich dich richtig verstehe, hast du schon eine funktionierende BeforePrint-Methode, die das Tabellierpapier simuliert. Die must du nur dem dynamisch erzeugten DetailBand zur Laufzeit zuweisen.

Delphi-Quellcode:

  GridRep.Bands.DetailBand.Height := Abs(Grid.Font.Height) + 10;
  GridRep.Bands.DetailBand.BeforePrint:=GridRepBeforePrint;


// Für Tabellierpapier
procedure TGridReport.GridRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  If GridRep.Bands.DetailBand.Color  = clWhite THEN
    GridRep.Bands.DetailBand.Color := clMoneyGreen ELSE
    GridRep.Bands.DetailBand.Color := clWhite;
end;