quickreportta çalışma zamanı nesne oluşturmak

[Arifceylan28]

var
a:tqrlabel;
begin
a:=tqrlabel.create(self);
a.Parent:=QuickRep1;
a.Caption:='DENEME';
a.Left:=10;
a.Top:=10;
end;

kodlarını quickreportun onstartpage olayına yazıyorum fakat access violation hatası alıyorum.

[husonet]

1.incisi nesneni BeforePrint eventinde create et. Çünkü nesnemiz sayfa print olmadan oluşmalı.
2.incisi ise Parent ini QuickRep e değil bantları göster. Sebebebi ise Bandlarda nesnelerimizi düzenli tutmamız daha kolay olur kanısındayım.

Kod: Tümünü seç

procedure TQRListForm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
    a: TQRLabel;
begin
    a:=tqrlabel.create(self);
    a.Caption:='DENEME';
    a.Left:=300;
    a.Top:=6;
    a.Parent:= PageHeaderBand1;
end;

Kolay Gelsin...

[Arifceylan28]

Hocam sağolasın.
Startpage olayı sayfa yüklenmeden gerçekleşiyor biliyordum.
Hatta bundan önceki yaptığım bi çalışmada quickrepdeki bileşenlere startpage olayında değer aktarıyordum.
Tam olarak beforeprint ile startpage olayının zaman farkını anlayamadım.
Herneyse sorun sayenizde çözülmüştür.Teşekkür ederim.
Ben beforeprint olayını preview öncesi gerçekleşmiyor sanıyordum onun için denememiştim.