Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Sevgili Arkadaşlar,
Bir formu "Do form MyForm" komutu ile açtıktan belli bir süre sonra kapatmak olası mı?
Örneğin "browse timeout 5 " gibi bir komut veya program arıyorum.
Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal
PUBLIC oForm
oForm = CreateObject("MyForm")
oForm.Show(2)
DEFINE CLASS MyForm As Form
ADD OBJECT MyTimer As Timer WITH interval = 2500
ADD OBJECT MyGrid As Grid WITH ;
Left = 1, ;
Top = 1, ;
Height = ThisForm.Height - 1, ;
Width = ThisForm.Width -1, ;
AncHor = 15, ;
ContRolSource = "Customer"
PROCEDURE lOAD
USE Home(2)+"\Data\Customer"
ENDPROC
PROCEDURE MyTimer.Timer
ThisForm.Release()
EndProc
ENDDEFINE
Sevgili Uğur,
Çok teşekkür ederim. Yardımların sayesinde problemim çözüldü.
Sevgilerimle.
Erdal.
Rica Ederim Erdal abi. İşinin görülmesine sevindim.
Saygılar ...
benden insanlar bunu isterken söyle derlerdi
ben kullanmıyorsam belli bir süre sonra o ekran erişilmez olsun şifre istesin veya kapansın
o zaman adamların son hareket veya klik durumlarını bir kenarda tutman gerekiyor.
ben her yazı yazdığında bunu kontrol ediyordum yada klik lediğinde bir yere yazıyordum
bunun için kısa bir yol var mı?
Konuralp; söylediğin için basit bir yöntem var. Kodun kaynağı foxite. Kodun üzerinde biraz oynaman gerekiyor ama fikir vermesi açısından işini görür.:
CLEAR
* Stefan Wuebbe - Yousfi Benameur
* http://www.foxite.com/archives/screen-0000263541.htm
Public oEvents
oEvents = Createobject('EventsTest')
Return
Define Class EventsTest As Custom
Procedure Init
*!* _Screen.AddObject("Time_out","timer")
_Screen.AddObject("Time_out","myTimer")
_Screen.time_out.Interval=1200
Bindevent(_Screen,'MouseMove', This,'ScreenMouseMove')
Endproc
Procedure Destroy
Unbindevents(This)
Endproc
Procedure ScreenMouseMove(nButton, nShift, nXCoord, nYCoord)
_screen.time_out.Reset()
? nButton, nShift, nXCoord, nYCoord
Endproc
Enddefine
DEFINE CLASS myTimer as Timer
Procedure Timer
? 'relogin.......'
Endproc
ENDDEFINE
Çok sağol işime yarar bu
ben çok zahmetli yollardan yapıyordum bunu
