runtime form

[arkach]

Kod: Tümünü seç

try
  form3:=tform3.create(nil);
  form3.showmodal;
  finally
  freeandnil(form3);
 end;

bu kodla bir formun icerisinden bircok ayni formu create ediyorum
en son kapanan formun edit1.text-i bir onceki edit1.text-e eklenmesi gerekiyor . yani ben bir global string tanimladim ve formun onclose-sinde s:=s+edit1.text ile istedigim sonucu aliyorum ama bir turlu aktif olan bir onceki formun edit1.text-ine yerlestiremiyorum. sorun su bir sonraki form kapandiktan sonra bir onceki form-da hangi event calisiyor . tesekkurler.

[SimaWB]

Bir önceki form seçili hale geliyorsa OnActivate olayı tetikleniyor olabilir.

[arkach]

hayir onactivate,onshow denedim olmuyor

[emin_as]

Aşagıdaki gibi bir kodla showmodal yapmadan önce edit1 e istediğin yazıyı aktarabilirsin.
Showmodal sonrası da edit1.text teki bilgiyi alabilirsin.
S ye edit1.text i almadan önce modalresult i kontrol edebilirsin, cancel ile form kapatıldıysa, s ye aktarılmasını engellemek için.
FreeAndNil den öncesine kadar edit1 ve form3 geçerlidir.
FreeAndNil yaptıktan sonra artık forma aktarım yapamazsın.

Kod: Tümünü seç

try  
  form3:=tform3.create(nil);
  form3.edit1.Text:=s;
  form3.showmodal;
  // if form3.modalresult = mrOk then s:=s+form3.edit1.text;    - sadece ok a basılırsa aktar
  s:=s+form3.Edit1.Text; 
finally
  freeandnil(form3);
end;

[arkach]

tesekkurler.

sizin kode ile form acilmadan once ama benim istedigim formlar kapanirken yani formlar acik duruyor tek tek kapiyorum
mesela
form1.edit1.text:=edit2.text;

runtimede create ettigim icin ve formlarin ismi ayni olunca iste yukaridakine benzer kodla aktaramiyorum

zaten form3 modal sekilde acik duruyor

[Lost Soul]

Kod: Tümünü seç

try
  form3:=tform3.create(nil);
  form3.showmodal;
  finally
  freeandnil(form3);
 end;

......

Kod: Tümünü seç

try
  form3:=tform3.create(nil);
  form3.showmodal;
  finally
  s:=s+Form3.Edit1.Text;

  freeandnil(form3);

 end;