Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Gridler ve Diğer Kontroller » Gridde değişiklik
Gridde rakamlar tutuyorum ve boş olan hücrelere yeni rakamların girilebilmesini ama var olan bir hücredeki rakam değiştirilirse messagebox ile ikaz verilmesini istiyorum bunu nasıl yapabilirim acaba. Emin misiniz diye sorup Evet tıklanırsa değişikliğin geçerli olmasını, Hayır denirse eski rakamın kalmasını sağlamam lazım.
Teşekkürler.
sanırım isine yarar
*!* Grid Cell textBox GotFocus
this.tag = trans(this.value)
*!* Grid Cell textBox LostFocus
if this.value # val(this.tag)
if messagebox("Değer değişti... değişiklik uygulansınmı?",36,"Uyarı")=6
this.value=this.value
else
this.value = val(this.tag)
endif
endif
Teşekkürler Soykan Hocam ama Grid jenerik bir grid ve tüm alanlar seçenekler sonucu oluşuyor. Tüm alanlarda da sayısal data var. Bu alanların herhangi birinde değişiklik yapıldığını yakalayabilmek, eski ve yeni değeri bilerek kullanıcının onayına sunmak, onun tercihine göre eski değeri veya yeni değeri griddeki hücrede geçerli yapmak istiyorum.
ozaman jenerik grid textbox class tan olussun ve bu kodlara sahip olsun ozaman olusan tum grid textbox lar bu davranisa sahip olur
ozaman jenerik grid textbox class tan olussun
Bunu nasıl yapacağım hocam, biraz açabilir misiniz.
*!* Grid Init te olusan tum kolonlara yeni class atamasi yapmis olursun
With This
For Each oColumn In .Columns
With oColumn
.RemoveObject('Text1')
.Newobject('GrdTextBox ','GrdTextBox')
.CurrentControl='GrdTextBox '
.GrdTextBox .Visible=.T.
Endwith
Endfor
Endwith
*!* buda generic gridte kullanabilecegin textbox class
Define Class GrdTextBox As TextBox
BorderStyle = 0
Height = 23
Margin = 0
Width = 100
Name = "GrdTextBox"
Procedure GotFocus
With This
.Tag = Transform(.Value)
Endif
Endwith
Endproc
Procedure LostFocus
With This
If .Value # Val(.Tag)
If Messagebox("Değer değişti... değişiklik uygulansınmı?",36,"Uyarı")=6
.Value=.Value
Else
.Value = Val(.Tag)
Endif
Endif
Endwith
Endproc
Enddefine
kontrol etmeden yazıyorum:
Myform.mygrid.Init
FOR m.xi=1 TO Myform.mygrid.ColumnCount
BINDEVENT(Myform.mygrid.Columns[Xi].Text1,"LostFocus",ThisForm,"LostFocusEvent")
BINDEVENT(Myform.mygrid.Columns[Xi].Text1,"GetFocus",ThisForm,"GetFocusEvent")
ENDFOR
MyForm.GetFocusEvent ve MyForm.LostFocusEvent içeriği Soykan'ınkı gibi, olacak.
Ben LostFocus yerine Valid Eventi kullanıyorum, ustalar beğenmiyor
With This
If .Value # Val(.Tag)
If Messagebox("Değer değişti... değişiklik uygulansınmı?",36,"Uyarı")=6
.Value=.Value
RETURN 1 && sonraki kontrole git
Else
.Value = Val(.Tag)
RETURN 0 && kontrolde kal
Endif
Endif
Endwith
Ali Abi ne diyeceğimi bilemiyorum, çok güzel ufuk açtın.
Bu şekilde daha hızlı ve kolay halledebilirim diye düşünüyorum.
Soykan Abiye de Sana da sonsuz teşekkürler.
Ali Abi,
Gridin her kolonunda texte girerken ve çıkarken gayet güzel Formda oluşturduğumuz "MyForm.GetFocusEvent" ve "MyForm.LostFocusEvent" çağrılıyor. Ama bu 2 event içinde This.Value dediğimde hata alıyorum.
This ifadesini Form'da oluşturduğumuz Event (MyForm.GetFocusEvent) olarak gördüğü için Value alamıyorum.
Bu eventi çağıran text'in value değerini buraya parametre olarak gönderme şansımız var mı acaba ?
Ali Abi,
Gridin her kolonunda texte girerken ve çıkarken gayet güzel Formda oluşturduğumuz "MyForm.GetFocusEvent" ve "MyForm.LostFocusEvent" çağrılıyor. Ama bu 2 event içinde This.Value dediğimde hata alıyorum.
This ifadesini Form'da oluşturduğumuz Event (MyForm.GetFocusEvent) olarak gördüğü için Value alamıyorum.
Bu eventi çağıran text'in value değerini buraya parametre olarak gönderme şansımız var mı acaba ?
Hata alırsın cunku TextBox Class a gore ayarli kisisel onerim TextBox Class kullanman
Soykan Hocam, Grid içindeki texboxların değişimini Grid Init içinde veya herhangi bir method içinde yapıyorum ama yazdığın koddaki 2. bölüm olan Class tanımlamasını Formun veya Grid'in hiç bir methodunda methodlarda class tanımı yaptırmadığı için yapamıyorum. Class tanımı için form dışında .prg mi kullanmalıyım, bu tanımlama en uygun nerede yapılabilir.
Ana .PRG içinde bir procedure açıp içine yazdım ve oldu ama başka bir pratik yolu da var mı diye sormak istedim.
Ali Abi,
Gridin her kolonunda texte girerken ve çıkarken gayet güzel Formda oluşturduğumuz "MyForm.GetFocusEvent" ve "MyForm.LostFocusEvent" çağrılıyor. Ama bu 2 event içinde This.Value dediğimde hata alıyorum.
This ifadesini Form'da oluşturduğumuz Event (MyForm.GetFocusEvent) olarak gördüğü için Value alamıyorum.
Bu eventi çağıran text'in value değerini buraya parametre olarak gönderme şansımız var mı acaba ?
iyi soru, çözüm tekniğini pek vaktim olmadığından kontrolsüz yazıyorum, olunca haber ver lütfen.
Eventlerin içine tıklanan değeri bulmak için aşağıdakini ekle
Amouseobj(arMo,1)
m.xreferance="MyForm.Mygrid."+armo[1].name+".Text1.Value"
m.ArananText1Value=EVALUATE(m.xreferance)
Bir de eski bir tartışma hatırlıyorum: (Çetin'den) bu tür işlemlerde Text1.Value sağlıksız olur, gridin bağlı olduğu Recordsource de ilgili değeri kullanmak daha iyi diye: O zaman değeri de şöyle bulabileceğini düşünüyorum.
örneğin BeforeRowColChange den nColIndex i Myform.KolonSira değerine alabilirsin
m.ArananText1Value= EVALUATE(FIELD (myform.mygrid.RecordSource),Myform.KolonSira )
EVAL() çalışmazsa &' dene çalışır
Amouse, mouse pointere bağlı değer vereceği için bu projede net sonuç vermeyecektir ama Çetin Hoca'nın da tavsiyesi olan 2. önerin mantıklı.
Şu anda Soykan Hoca'nın önerdiği şekilde yaptım ve oldu. Şimdilik Class tanımlamasını Ana PRG içinde bir Procedure içinde yaptım, sağlıklı çalışıyor.
Hepinize çok teşekkürler.
yukarakini unut, amouseobj mouse ile ilgili, diğer teknik olur:
m.ArananText1Value=This.Parent.parent.RecordSource+"."+(FIEL(ThisForm.xkolon,This.Parent.parent.RecordSource))
WAIT STR(EVALUATE(m.ArananText1Value))
Soykan Hocam, Grid içindeki texboxların değişimini Grid Init içinde veya herhangi bir method içinde yapıyorum ama yazdığın koddaki 2. bölüm olan Class tanımlamasını Formun veya Grid'in hiç bir methodunda methodlarda class tanımı yaptırmadığı için yapamıyorum. Class tanımı için form dışında .prg mi kullanmalıyım, bu tanımlama en uygun nerede yapılabilir.
Ana .PRG içinde bir procedure açıp içine yazdım ve oldu ama başka bir pratik yolu da var mı diye sormak istedim.
daha sonraki thread te ana.prg icinde procedure olarak cozdugunu yazmissin evet oylede olur
yeni GrdTextBox isminde bir textbox class yaratarak ta olur ozaman
.Newobject('GrdTextBox ','GrdTextBox')
olan kod
.Newobject('GrdTextBox ','GrdTextBox.Vcx')
olarak degistirirsin
fox4um » Gridler ve Diğer Kontroller » Gridde değişiklik