Çetin Üstad 'ın verdiği kodu formunuza eklediniz mi?
Onun söylediği gibi bana da "Form Focus" kayboluyor gibi geldi:
Formu tasarım modunda açın;
VFP menüsünden;
Form\New Method ( seçin )
Açılan "New Method" penceresine "ONEGETIR" yazın ve "ADD" butonuna tıklayın. Sonra "CLOSE" Butonuna tıklayın!
Form properties penceresinde "ONEGETIR" method 'unu açın ve Çetin Hoca 'nın verdiği kodu buraya yapıştırın!
Visual Fox Pro
Declare Integer GetForegroundWindow In win32API
Declare Integer GetCurrentThreadId In win32API
Declare Integer GetWindowThreadProcessId In win32API ;
integer HWnd, Integer @lpdwProcessId
Declare short SetForegroundWindow In win32API Integer lnHWnd
Declare short AttachThreadInput In win32API ;
integer idAttach, Integer idAttachTo, short fAttach
Declare Integer SetActiveWindow In WIN32API Integer HWnd && handle to window
Local lpdwProcessId, lnThreadID1, lnThreadID2
lpdwProcessId = 0
lnThreadID1 = GetCurrentThreadId()
lnThreadID2 = GetWindowThreadProcessId( m.tnHWND, @lpdwProcessId)
AttachThreadInput(lnThreadID1, lnThreadID2, 1)
SetForegroundWindow(m.tnHWND)
SetActiveWindow(m.tnHWND)
AttachThreadInput(lnThreadID1, lnThreadID2, 0)
Barkodu okuduktan sonra yada timer da kodunuzu çalıştırdıktan sonra :
Visual Fox Pro
ThisForm.Text1.Setfocus()
Yazmanız yeterli!
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
