Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
thisform.grid1.column1.header1.Caption = "Urun Kodu"
thisform.grid1.column1.ControlSource = "ar.kodu"
thisform.grid1.column1.Width = 75
BINDEVENT( thisform.grid1.coLUMN1.text1, "rightClick", thisform, "urun_bul")
BINDEVENT( thisform.grid1.coLUMN1.text1, "lostfocus", thisform, "urun_bul")
lostfocus calısıyor
burada rightClick çalışmıyor burada nerede hatam var bulamadım
Dogru gorunuyor. Engelleyen baska kod ya da obje vardir.
Public oForm
oForm = Createobject("sampleform")
oForm.Show()
Define Class SampleForm As Form
DataSession=2
Height=400
Width=600
Add Object grdCustomer As Grid With ;
Height=400,Width=600,Anchor=15,;
recordsourcetype = 4,;
recordsource = 'select * from ("'+_samples+'data\customer") into cursor crsCustomer'
Procedure Init
Bindevent( Thisform.grdCustomer.Columns(2).text1, "rightClick", Thisform, "urun_bul")
Endproc
Procedure Urun_Bul
Messagebox( crsCustomer.Company)
Endproc
Enddefine
Mesela onunde mouse tiklamalarini bloke eden seffaf bir container olabilir.
ustat orada lostfocus caslısıyor engelleyen ne olabılır ki anlamadım gitti
Bilemem benim kodum degil. Olabilecek bir tanesini soyledim zaten.