Form'dan Frame içindeki nesneye nasıl erişilir.

[pro_imaj]

Merhaba;

Bir formdan bir diğer formun içindeki nesneye ulaşmak için FormunAdi.NesneninAdi.Özellikleri şeklinde erişiyorken;
Bir formdan bir frame içindeki nesneye nasıl erişimi acaba.

Saygılarımla.
Teşekkürler.

[badkursat]

Frame nin adresini bilmen lazım. O yüzden Frame nesnelerini bir TList içine al ve TMyFrame(MyList.Items[0]).Nesnelerin yapabilirsin

[pro_imaj]

Adresten kastınız nesne bilgileri ise bunu zaten biliyorum.
Frame içinde Edit1 var mesela buraya bir değer göndereceğim.

[ikra]

Kod: Tümünü seç

Form1.Frame1.Edit1.Text

[pro_imaj]

Kod: Tümünü seç

Form1.Frame1.Edit1.Text

Bu şekil olmuyor.

Main formda Bir PageControl var bu pagecontrol içine runtime da Frame oluşturuyorum.
Frame oluşturulmuş üzerinde nesneler design time zamanında ekli. sadece runtime zamanında Pagecontrol içine çağırıyorum.

[ikra]

Parent pagecontrol ise page'in controlcountu ile döngüye gir.

Kod: Tümünü seç

var
  i: integer;
  frm: tmyframe;
begin
  with pagecontrol1 do
    for i := 0 to pred(pages[x].controlcount) do
      if pages[x].controls[i] is tframe then
      begin
        frm := tmyframe(pages[x].controls[i]);
        frm.edit1.text := 'test';
        break;
      end;
end;

[pro_imaj]

@ikra cevabınız için teşekkür ederim. Kod için teşekkür ederim, sorunumu biraz daha açmanın faydalı olacağını düşünüyorum.

1-Main formumda bir adet PageControl var.
2-Main Formun içinde bir adet frame'i runtime da çağırıyorum (Normalde Main formda yok ben bir buton ile PageControl içine çağırıyorum)
3-Oluşan Frame'in içinde bir buton ile başka bir Form çağırıyorum.
4-Çağırdığım bu formda bir işlem yapıyorum ve işlemlerin sonucunu Formu kapatıp sonuç verilerini Frame'in içindeki editlere yazmak istiyorum.

*Neden bir formdaki gibi FormAdi.Nesne adı yazamıyorum çok basit gibi gözüküyor fakat kafayı yedirtecek.

[mrmarman]

Şöyle yaparak Frame'i create etmiyor musun ?

Kod: Tümünü seç

Var
  xFrame : TFrame1;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if NOT Assigned( xFrame ) then begin
    xFrame := TFrame1.Create( self );
    xFrame.Parent  := self;
    xFrame.Height  := 100;
    xFrame.Align   := alBottom;
    xFrame.Visible := True;
  end;

end;

Sonra de bu şekilde erişim yapabilirsin. Olmayan nedir bir örnek de senden görürsek anlarız.

Kod: Tümünü seç

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  xFrame.Edit1.Text := 'ARMAN';
end;

[pro_imaj]

Şöyle yaparak Frame'i create etmiyor musun ?

Kod: Tümünü seç

Var
  xFrame : TFrame1;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if NOT Assigned( xFrame ) then begin
    xFrame := TFrame1.Create( self );
    xFrame.Parent  := self;
    xFrame.Height  := 100;
    xFrame.Align   := alBottom;
    xFrame.Visible := True;
  end;

end;

Sonra de bu şekilde erişim yapabilirsin. Olmayan nedir bir örnek de senden görürsek anlarız.

Kod: Tümünü seç

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  xFrame.Edit1.Text := 'ARMAN';
end;

Frame'i sizin yazdığınız gibi runtime'de create etmiyorum.
Frame Design time anında üzerine nesneler koyulmuş şekilde oluşturdum.

Çağırırken.

Kod: Tümünü seç

AddFrame( 'TTetkik_Frame' ,  'Kalite Tetkik;' );

Şeklinde çağırıyorum.

Zaten olması gerekn de sizin yazdığınız gibi.

Kod: Tümünü seç

xFrame.Edit1.Text := 'ARMAN';

[mrmarman]

Zaten ben de burada gösterirken kullandığım TFrame'in runtime'da sadece Frame'ini create ediyorum, üzerindeki TLabel TEdit vs. design time'da daha önceden ekliydi.

AddFrame'i neyin altından çağırıyorsun ? AddFrame procedure sana ait mi yoksa bir class altında mı ? AddFrama procedure yeni frame ne ile yani hangi kod ile oluşturuyor ?

Cımbızla soruyu sordurmadan biraz daha net olursa daha çabuk cevap alabilirsin.
Ayrıca zaten statik bir çağırma amacın olduğuna göre ( statik demişken sorunda geçiyor ya Frame1.Edit1.Text := ''; yazıcam) standart kullanımı yukarıdaki gibi zaten, ona göre böyle standart bir yapıya dönüştürebilirsin. Sonra da başlıkları AddFrame'deki ile güncellersin.

[pro_imaj]

Merhaba, değerli yardımlarınızdan dolayı teşekkür ederim.
Runtime'de Frame oluşturduğum için geçişlere Frame tipinde bir global değişken tanımlayarak çözüldü. @vkamadan

Çözüm;
Siparis_Listesi Formunda

Kod: Tümünü seç

  
  public
   CagiranTetkik : TTetkik_Frame;

Kod: Tümünü seç

uses
  Tetkik;

Kod: Tümünü seç

procedure TSiparis_Listesi_Form.DBGrid2DblClick(Sender: TObject);
begin
CagiranTetkik.Siparis_No_Edit.Text := '99';
Close;
end;

Tetkik Frame'de

Kod: Tümünü seç

procedure TTetkik_Frame.Siparis_No_ButtonClick(Sender: TObject);
begin
Siparis_Listesi_Form.CagiranTetkik := Self;
Siparis_Listesi_Form.Show;
End;