Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Dostlar,
Projemde birçok formu çağırırken zaman zaman parametrelere başvurmak zorunda kalıyorum
ancak formun init olayı dışında parametre göndermeyi başaramadım. Buna ihtiyaç duymamın nedeni, açık olan bir formu tekrar açmadan show etmem. Ancak bu esnada çağırdığım yerden yeni parametre değerlerini atayamıyorum.
Konuyla ilgili yardımınız olursa çok sevinirim. Şimdiden teşekkür ederim.
_screen.addproperty() ozelligini kullanabilirsin boylelikle formlar arasi gecis yapsanda heryerden ulasabilecegin bir parametren olur
_screen.addproperty('cValue','') && bos deger ile atama
_screen.addproperty('cAd','Soykan') && bastan degere vererek
...
..
_screen.cAd = thisform.txtAd.Value && yeniden deger yolladik
yada custom class yaratarak oraya deger yollayabilirsin
oApp = Createobject("MyApp")
*oApp.getAdsoyad()
oApp.cAd = thisform.txtAd.Value
Define Class myApp As Custom
cAd = ""
Procedure getAdSoayd
This.cAd= m.tcAd && coming from other forms value etc..
Endproc
Enddefine
oApp yi release etmedigin muddetce deger gonderip alabilirsin
Show()'un tek parametresi Modal olup olmamasi. Show(1), Show(2) - Show() ile Show(2) ayni, 2 varsayilan.
Init ile parametre gondermen gerekmese, ya da gonderdigin parametre object olsa (object olunca referans ile gidiyor demek) senin sorunun cozulmus olacak degil mi? (tabii benim tercihim bir formu saklayip sonra show() etmek yerine, isi biter bitmez yoketmek ve tekrar yeniden olusturmak gerekince).
local loParameterKargo
loParameterKargo = createobject("Empty")
addproperty(loParameterKargo, 'p1', 'parametre deger 1')
addproperty(loParameterKargo, 'p2', 'parametre deger 2')
addproperty(loParameterKargo, 'Tarih', date())
* ...
do form BenimForm with loParameterKargo
* BenimForm.init
lparameters toParameterObject
this.AddProperty( 'oParameterObject', toParameterObject )
* ...
Diyelim ki form bir yerlerde Hide() edildi. Yeniden yeni parametrelerle Show() istiyorsun. loForm'un BenimForm referansi oldugunu dusunursek:
AddProperty( loForm.oParameterObject, 'p1', 'P1 paremetresinin yeni degeri')
AddProperty( loForm.oParameterObject, 'p2', 'P2 paremetresinin yeni degeri')
AddProperty( loForm.oParameterObject, 'tarih', date()+2) && bu da degisik - dokunmayabilirdik de
AddProperty( loForm.oParameterObject, 'p3', 'Bu yoktu. Yeni')
loForm.Show()
loForm.BirseylerYap()
_screen.Addproperty() 'ye serh koyuyorum:)
_screen.Addproperty() 'ye serh koyuyorum:)
ortada bir serh! varsa elbet bir sebebide vardir 
ama her serh! te bir hayir vardir
Körün istediği bir göz....
Sayın Başöz, Sayın Özçelik ben bir sorunuma çare arıyordum. Ama siz sorunumun dışında, iki tane kodlarımı müthiş kısaltan fikir verdiniz. Ne diyeyim Allah ne muradınız varsa versin!
Dua ile...
daha bu başlangıç,
sanin de Allah ne muradın varsa versin, her yeni soru bizim birçok bilgimizi tekrar işe yarar hale getiriyor ....