Fastreport bileşen silme

[Kaptan]

Selamlar.
Fastreportta çalışma zamanında eklenmiş bazı bileşenleri silmek istiyorum.Nasıl yapabilirim?

Kod: Tümünü seç

for i:=1 to 6 do
begin
x[i].free;
d[i].Free;
end;

komutu ile yapıyorum fakat preview yapıldıktan sonra bu komutlar çalıştırılırsa access violation hatası alıyorum.
preview ile ilgili herhangi bir olay yok.

[Kaptan]

[Kaptan]

afterprint olayına bir kod yazdığımda bu sonsuz döngüye giriyor.Showmessage('a') yazsam sürekli a mesaj penceresi geliyor neden

[miskin]

Selamlar.
Fastreportta çalışma zamanında eklenmiş bazı bileşenleri silmek istiyorum.Nasıl yapabilirim?

Kod: Tümünü seç

for i:=1 to 6 do
begin
x[i].free;
d[i].Free;
end;

komutu ile yapıyorum fakat preview yapıldıktan sonra bu komutlar çalıştırılırsa access violation hatası alıyorum.
preview ile ilgili herhangi bir olay yok.

Bende fast raport diye bilesen yok , hangi firmanin bileseni fasraport.

[Kaptan]

Fastreport hakkında Makaleler bölümünde Faosostun birçok makalesi var.
viewtopic.php?t=9827&highlight=fastreport

[Kaptan]

şimdi de designreport siyah renkli şekilde geliyor ne bu sorunlar yaaa

[Kaptan]

Ya allah aşkına kimse anlamıyor mu bu işten yaa.Tıkandım kaldım.Bitmek üzere son sorunum yaa
Mesela şu kodda ne hata var ki?

Kod: Tümünü seç

var
x:TfrxMemoView;
begin
if a=true then
x.Free;
x:=TfrxMemoView.Create(frxreport1.findobject('page1'));
x.Height:=30;
x.Width:=30;
x.Text:='abc';
a:=true;
frxReport1.DesignReport;
end;

[rsimsek]

Sakin ol kardeş Şimdiye kadar henüz biten bir program yazılmadı Biten programın işi de bitmiş demektir

Başta sorduğunda (gerçi bu olayı çözüp çözmediğin anlaşılamıyor, soru tamamen değişmiş )

Kod: Tümünü seç

    
var
  x: TfrxComponent;
begin
  x := frxReport.Report.FindObject('frxMemo1');
  if x <> nil then
    x.Free;

bununla sorunsuz silebilirsin. Silmek için önce nesneyi bulman lazım

Sorunun son şeklinde ise parent ve left değerlerini de vermen gerekir. Ayrıca hight ve width e verdiğin değerler cm cinsinden ise sayfanın dışında olma ihtimali de var

[Kaptan]

Abi saol yaa allah razı olsun.
Sorunun son halini kısaltarak yazmıştım.
x:array[1..10] of tfrxmemoview;
gibi tanımlayarak x:=memoview.create ile oluşturuyordum.Daha sonra silinmesi gerektiğinde x.free ile silmeye çalışıyordum.

c:=frxReport1.Report.FindObject('Memo'+inttostr(i+1));
if c<>nil then
c.Free;
e:=frxReport1.Report.FindObject('Barcode'+inttostr(i+1));
if e<>nil then
e.Free;

komutları ile sorunu çözdüm.Çok ama çok saolun walla beni bi dertten kurtardınız.

siz beni sevindirdiniz allah da sizi sevindirsin.

[rsimsek]

Amin, cümlemizi..

İnsanları mutlu etmek, mutlu görmek de hoş bir duygu herkese tavsiye ederim Çünkü dua ve sevap işini bir tarafa bıraksak bile verdiği haz strese bile iyi geliyor inanın