FastReport ve Band bileşeni

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Akin_Delphi
Üye
Mesajlar: 163
Kayıt: 06 Nis 2006 12:22

FastReport ve Band bileşeni

Mesaj gönderen Akin_Delphi »

Herkese hayırlı işler,

Forumda arattım ancak bu konuyla ilgili bir şey bulamadım.

Öncelikle yapmaya çalıştığım şeyi açıklayayım: Bir master bantın altında dört değişik detail bant var. Bu detail bantları duruma göre gizleyip, göstermek istiyorum.


Normalde designer içerisinde bunların görünürlük özelliğini değiştirebiliyorum. Ancak bunu delphi içerisinden nasıl yapabileceğimi bulamadım. Bantların her birine isim verdim. Ancak bunlara ulaşamıyorum.

Acaba frRpAboneAyr fastreport bileşeninin tasarımında bulunan AboneAyrBnd bantına nasıl ulaşıp göstereceğim ya da gizleyeceğim :?:

Saygılarımla
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Merhaba,
FastReportta butun nesnelere FindObject metodunun döndüreceği objeyi , ilgili sınıfa cast ederek erişebilir işlem yapabilirsiniz TfrxMasterData örnek olsun ,

Kod: Tümünü seç

TfrxMasterData(frRpAboneAyr.FindObject('AboneAyrBnd')).Visible:=False;
gibi erişebilirsiniz.
İyi çalışmalar.
Volkan KAMADAN
www.polisoft.com.tr
Akin_Delphi
Üye
Mesajlar: 163
Kayıt: 06 Nis 2006 12:22

Mesaj gönderen Akin_Delphi »

vkamadan yazdı:Merhaba,
FastReportta butun nesnelere FindObject metodunun döndüreceği objeyi , ilgili sınıfa cast ederek erişebilir işlem yapabilirsiniz TfrxMasterData örnek olsun ,

Kod: Tümünü seç

TfrxMasterData(frRpAboneAyr.FindObject('AboneAyrBnd')).Visible:=False;
gibi erişebilirsiniz.
İyi çalışmalar.
Verdiğiniz cevap için teşekkürler. :)

Ben de internette ararken aşağıdaki gibi bir yöntem bulmuştum.

Kod: Tümünü seç

uses
FR_Class

Kod: Tümünü seç

var
ABand : TfrView;
begin
if CheckBoxAbonelikDurumu.Checked then
begin
ABand := frRpAboneAyr.FindObject('AboneAyrBnd');
        If ABand <> nil then
        begin
        ABand.Visible := True;
        end;
ABand := Nil;
end;
Belki birilerinin bir işine yarar. Saygılarımla.
Cevapla