form create etme

[kamuran48]

s.a.
formu aşağıdaki şekilde oluşturuyorum.
var
form: array[1..50] of TFRM_NEW_PERSONEL;
begin
form[1]:=TFRM_NEW_PERSONEL.Create(Self);
form[1].Caption:=frm_data.PERSONEL_DATASETADI.Text+' '+frm_data.PERSONEL_DATASETSOYADI.Text+' PERSONEL KARTI';
form[1].show;
end;

fakat bu form üzerindeki nesnelere başka bir form üzerinden ulaşmayı başaramadım. Yardımcı olursanız sevinirim.

[Senat0r]

olusturdugunuz formu kapatirken parcaliyorsaniz eger erisim saglayamazsiniz onu kontrol edermisiniz ?

[kamuran48]

(sender as TFRM_NEW_PERSONEL).cxTextEdit1.text:=inttostr(personel_datasetPERSONEL_ID.AsInteger);

invalid class typecast hatası alıyorum.

[Senat0r]

Kod: Tümünü seç

  if dmMain.tblAccounts.State in [dsInsert, dsEdit] then // id alıp kullanacağımız query ekleme ve düzenleme durumundaysa
  begin
    Application.CreateForm(TfrmListGroup, frmListGroup); // sorgu yapacağımız formu oluşturuyoruz
    try
      if frmListGroup.ShowModal = idOK then  //açmış olduğumuz formun buttonun modal result özelliğini mrok yapıyoruz
      begin
        dmMain.tblAccountsGrup1.AsString := frmListGroup.Table1Grup1.AsString; // bize lazım olan bilgiyi alıp 
       
      end;
    finally
      FreeAndNil(frmListGroup); // Formumuzu kapatıyoruz
    end;
  end;