Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Gridler ve Diğer Kontroller » Grid üzerinde sağ tık.
Formda kullandığım grid üzerinde sağ tık yaparak bir "shortcut" açmak istiyorum. "Right click event" ine kod yazdığım zaman bu sadece boş satırlarda iş görüyor. record üzerinde hiçbir event'i çalıştıramıyorum. Bu eski forumda vardı. Ama bende iş yok. İnsan arşivler. Onun için tekrar sıkılarak soruyorum.
Şimdiden Teşekküer ederim.
BINDEVENT() komutunu yardımdan incele
asagidaki ornekte gridin hangi textbox ina rightclick yaparsan yap formdaki ColRightClick method unu cagiriyor
* form init
FOR EACH loColumn IN THIS.Grid.Columns
BINDEVENT(loColumn.text1,"Rightclick",THIS,"ColRightClick")
ENDFOR
"loColumn" degeri nin yerine ne yazılması gerektiğinide belirtirsen sevinirim. Sanırım kolon adı değil
bir şey yazmaya gerek yok o anlik tanımlanan ve kullanilan bir degisken o yuzden bu kod oylece calisir
Çok uğraştım ama
FOR EACH loColumn IN THISform.Grid1.Columns
BINDEVENT(loColumn.text1,"Rightclick",THIS,"ColRightClick")
ENDFOR
da "ColRightClick" i bulamıyor. acaba vfp 8 kullandığım içinmidir.
Konuyu düzeltiyorum. Gridlerdeki hiç bir method u çalıştıramıyorum. Hiçbir komutta hata vermiyor. Ama çalışmıyorda. Sanırım Soykana (affına sığınarak) gönderdiğim karikatür gerçek olmak üzere.
Çok uğraştım ama
FOR EACH loColumn IN THISform.Grid1.Columns
BINDEVENT(loColumn.text1,"Rightclick",THIS,"ColRightClick")
ENDFORda "ColRightClick" i bulamıyor. acaba vfp 8 kullandığım içinmidir.
burada anlatilan Grid te sag click yapinca cagirilacak method tur
ColRightClick te formda olan bir method ve burada ona gonderme yapiliyor
kısaca gridte sag click yapinca calistirmayi istedigin methodu calistirmis oluyorsun, gridteki her textbox a komut yazmaktan kurtuluyorsun ....
Konuyu düzeltiyorum. Gridlerdeki hiç bir method u çalıştıramıyorum. Hiçbir komutta hata vermiyor. Ama çalışmıyorda. Sanırım Soykana (affına sığınarak) gönderdiğim karikatür gerçek olmak üzere.
bana karikatur gelmedi...
Public oForm
oForm = Createobject('myForm')
oForm.Show()
Define Class myForm As Form
DataSession = 2
Add Object myGrid As Grid With RecordSource = 'customer'
Procedure Load
Use _samples+'data\customer'
Endproc
Procedure myGrid.Init
Local ix
With This
For ix=1 To .ColumnCount
Bindevent(.Columns(m.ix).Text1,'RightClick',This,'RightClick')
Endfor
Endwith
ENDPROC
PROCEDURE myGrid.RightClick
WAIT WINDOW NOWAIT TRANSFORM(EVALUATE(this.recordsource+'.'+varread()))
endproc
Enddefine
Eğer grid içinde herhangi bir değişiklik yaptırmayacaksan AllowCellSelection = .F. yap ondan sonra grid içindeki Event'leri kullanabilirsin.
fox4um » Gridler ve Diğer Kontroller » Grid üzerinde sağ tık.