CallerForm

CallerForm Nedir?

Clomosy gibi platformlarda yeni bir sayfa (birim) açtığınızda, "bu yeni sayfayı açan asıl (ana) formun hangisi olduğunu" aklında tutan referans kodudur. Yani yeni açılan sayfaya, "seni bu form çağırdı" bilgisini verir.  // =================================================================

// 1. KISIM: ANA KOD (Projenizin ana sayfasına yapıştırın)

// =================================================================

Var

  FormAna: TCLForm;

  LblMesaj: TclLabel;

  BtnSayfayaGit: TclButton;

  BirimGecis: TclUnit;

void HedefSayfayaGit;

{

  BirimGecis.UnitName = 'HedefBirim'; // Gidilecek sayfanın adı 

  BirimGecis.CallerForm = FormAna;    // "Seni bu form çağırdı" bilgisini gönderiyoruz

  BirimGecis.Run;

}

{

  FormAna = TCLForm.Create(Self);

  FormAna.clSetCaption('Ana Sayfa');

  BirimGecis = TclUnit.Create;

  LblMesaj = FormAna.AddNewLabel(FormAna, 'LblMesaj', 'Henüz mesaj gelmedi...');

  LblMesaj.Align = alTop;

  BtnSayfayaGit = FormAna.AddNewButton(FormAna, 'BtnSayfayaGit', 'Yeni Sayfayı Aç');

  BtnSayfayaGit.Align = alTop;

  FormAna.AddNewEvent(BtnSayfayaGit, tbeOnClick, 'HedefSayfayaGit');

  FormAna.Run;

}

Var

  FormHedef: TCLForm;

  EdtMesaj: TclEdit;

  BtnGeriDon: TclButton;

void MesajGonderVeGeriDon;

{

  LblMesaj.Text = EdtMesaj.Text; // Ana formdaki etikete doğrudan erişip veriyi yazıyoruz

  FormHedef.clHide;              // Bu formu gizliyoruz

  CallerForm.clShow;             // Bizi çağıran ana formu ekrana geri getiriyoruz

}

{

  FormHedef = TCLForm.Create(Self);

  FormHedef.clSetCaption('Hedef Sayfa');

  EdtMesaj = TclEdit.Create(FormHedef);

  FormHedef.clGetChild(EdtMesaj);

  EdtMesaj.Text = 'Buraya mesajınızı yazın...';

  EdtMesaj.Align = alTop;

  BtnGeriDon = FormHedef.AddNewButton(FormHedef, 'BtnGeriDon', 'Mesajı Gönder ve Geri Dön');

  BtnGeriDon.Align = alTop;

  FormHedef.AddNewEvent(BtnGeriDon, tbeOnClick, 'MesajGonderVeGeriDon');

  FormHedef.Run;

}