"Form.Setfocus" hk.

**ugurlu2001** · 19.02.2010 14:55:57

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Konu: "Form.Setfocus" hk.

Yazdığım projemin _Screen.Visible ayarı .F. durumda.

Yeni bir forumu diğer bir form içerisinden çağırdığımda Bir önceki formu HIDE özelliği ile gizliyorum.

Sorunum ise şu; bu işlemi yaptıktan sonra forum penceresinin herhangi bir yerine tıklamadan formu klavye ile kontrol edemiyorum. Sanki kontrol, o HIDE olan bir önceki formdaymış gibi görünüyor.

Ne yapmalıyım ki, TABINDEX i 1 olan nesneye konumlanabilmeliyim?

Yardım ve yorumlar için şimdiden çok teşekkürler.

Not: ShowWindow property si (2), As top level form.

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ü

**metin** · 19.02.2010 15:47:37

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: "Form.Setfocus" hk.

hide den sonra tekrar show yapmayı dene öbür formu.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**mrduyar** · 19.02.2010 15:54:43

mrduyar
Uzman Üye
Offline

Yer: Antalya
Kayıt Tarihi: 09.10.2006
İleti: 620

Re: "Form.Setfocus" hk.

bence yeni form da thisform.refresh yok.

Bilmediğin Neyse Yanıldığındır.

**ugurlu2001** · 19.02.2010 16:04:25

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Arkadaşlar yorumlar için çok teşekkürler ama ikiside değil

İstemediğim durumu şöyle açıkliyim:

Başlat\Çalıştır\CALC [ENTER] && şimdi hesap makinası açıldı.

Ve masaüstünde boş bir yere tıklayın. Hesapmakinası artık aktif değil. Kontrol Windows desktop ta.

Birbiriyle ilişkili her yeni formu açtığımda bu durum devam ediyor.

Bendeki durumda bunun aynısı

Çok sıkıcı bir durum ama Formları kapattığım da bir sorun yok. Focus bir önceki forma geliyor. Olması gerektiği gibi. Sorun açıl yeni formlarda

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ü

**soykanozcelik** · 19.02.2010 16:13:00

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: "Form.Setfocus" hk.

Uğur sorun bir formdan diğer forma döndüğünde tabindex in istedigin yerde olmamasimi ?

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**ugurlu2001** · 19.02.2010 16:24:18

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Tekrardan merhabalar.

Sorun böyle...

Anlatmaktan daha kolay oldu

Visual Fox Pro

_Screen.Visible = .F. 

 

PUBLIC  oForm 

 

oForm = CreateObject('MyForm')

oForm.AddObject('cmdButton1','btnMyButton')

oForm.Show

READ EVENTS

 

DEFINE CLASS MyForm As Form 

    ShowWindow = 2

ENDDEFINE 

 

DEFINE CLASS btnMyButton As CommandButton     

    Visible = .T.

    Enabled = .T.

    Top = 1

    Left = 1

    Height = 50

    Width = 150 

 

    PROCEDURE Click

        _Screen.Visible = .T. 

        ThisForm.Release

    ENDPROC 

ENDDEFINE

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ü

**soykanozcelik** · 19.02.2010 17:07:42

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: "Form.Setfocus" hk.

ben bir sey farkedemedim

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**ugurlu2001** · 19.02.2010 17:10:00

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Abi farkedemedim derken; bahsettiğim sorun den yok mu?

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ü

**soykanozcelik** · 19.02.2010 17:11:52

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: "Form.Setfocus" hk.

form aciliyor ve kapaniyor ve cursor nerde kaldi ise oraya dönüyor ,
konu 2 form acip ondan ona gectikten sonra vs oluyorsa kodu 2 forma gore degistir oyle test edelim

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**ugurlu2001** · 19.02.2010 18:03:47

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Soykan abi, 1 yada bir kaç form olması arasında bir fark yok

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ü

**soykanozcelik** · 19.02.2010 18:53:34

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: "Form.Setfocus" hk.

Şöyle bir şey önereyim belki işine yarar

form#init e

Visual Fox Pro

this.addproperty('cLastControl','')

ekle

formdaki kullandigin controllerin (textbox vs ) lostfocusuna

Visual Fox Pro

thisform.cLastControl=this

yaz

form#activate e

Visual Fox Pro

If Type("thisform.cLastControl")="O"

    Thisform.cLastControl.SetFocus()

Else

    BaskaBirControl.SetFocus()

Endif

bu sunu sagliyor formdan ayrilirken hangi control de isen forma geri dondugunde yine oraya focus oluyorsun
ben bunu tum formlarimda ve textbox vs classlarimda kullaniyorum en azindan ayrildigimda tekrar ayni yere donebiliyorum.

umarim fikir verir yada isine yarar...

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**cetinbasoz** · 19.02.2010 19:54:39

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: "Form.Setfocus" hk.

Visual Fox Pro

local lnHwnd

lnHwnd = this.Hwnd

If m.lnHwnd <> 0 AND !IsWindowMinimized(m.lnHwnd) && if minimized do not set focus to

    BringAppInFront(m.lnHwnd)

Endif

 

*Procedure BringAppInFront(tnHWND)

*BringAppInFront.prg

lparameters tnHWND

    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)

*Endproc

**ugurlu2001** · 20.02.2010 09:38:42

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Üstat,

Yine elin değdi..

Hakkın ödenmez...

Ellerine sağlık. Çok teşekkür ediyorum.

Aşağıdaki şekilde kullandım :

Visual Fox Pro

local lnHwnd

lnHwnd = this.Hwnd

If m.lnHwnd <> 0 && AND !IsWindowMinimized(m.lnHwnd) && if minimized do not set focus to

    BringAppInFront(m.lnHwnd)

Endif

IsWindowMinimized method una yada yada procedure ünü kullanmadım. Sorun olmaz umarım?

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ü

**ugurlu2001** · 20.02.2010 10:04:45

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Üstat, şıkır şıkır çalışıyor

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ü

**cetinbasoz** · 22.02.2010 19:07:33

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: "Form.Setfocus" hk.

Sana IsWindowMinimized() kismi lazim degil (fonksiyonu ucururken oradan kaldirmayi unutmusum). Hani olur da lazim olursa:

Visual Fox Pro

PROCEDURE IsWindowMinimized(tnHWND)

LOCAL lpwndpl

Declare short GetWindowPlacement In WIN32API ;

    integer HWnd, ;

    string @ lpwndpl

 

#define SW_SHOWMINIMIZED    2

#define SW_SHOWMAXIMIZED    3

#define SW_MAXIMIZE         3

#define SW_SHOWNOACTIVATE   4

#define SW_SHOW             5

#define SW_MINIMIZE         6

#define SW_SHOWMINNOACTIVE  7

#define SW_SHOWNA           8

#define SW_RESTORE          9

#define SW_SHOWDEFAULT      10

#define SW_FORCEMINIMIZE    11

 

lpwndpl = CHR(4*3+8*2+4*4)+replicate(CHR(0),4*3+8*2+4*4-1)

 

return ( GetWindowPlacement(m.tnHWND, @lpwndpl) # 0 ) AND ;

        INLIST(ASC(SUBSTR(m.lpwndpl, 4+4+1, 1)), ;

        SW_SHOWMINIMIZED, SW_MINIMIZE, SW_SHOWMINNOACTIVE, SW_FORCEMINIMIZE )

**ugurlu2001** · 23.02.2010 08:53:38

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: "Form.Setfocus" hk.

Üstat, IsWindowMinimized kısmını kullanmamıştım zaten

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ü

"Form.Setfocus" hk.

İleti [ 16 ]

1 Konuyu açan ugurlu2001 19.02.2010 14:55:57

Konu: "Form.Setfocus" hk.

2 Cevaplayan metin 19.02.2010 15:47:37

Re: "Form.Setfocus" hk.

3 Cevaplayan mrduyar 19.02.2010 15:54:43

Re: "Form.Setfocus" hk.

4 Cevaplayan ugurlu2001 19.02.2010 16:04:25 Son düzenleyen, ugurlu2001 (19.02.2010 16:06:03)

Re: "Form.Setfocus" hk.

5 Cevaplayan soykanozcelik 19.02.2010 16:13:00

Re: "Form.Setfocus" hk.

6 Cevaplayan ugurlu2001 19.02.2010 16:24:18 Son düzenleyen, ugurlu2001 (19.02.2010 16:41:10)

Re: "Form.Setfocus" hk.

7 Cevaplayan soykanozcelik 19.02.2010 17:07:42

Re: "Form.Setfocus" hk.

8 Cevaplayan ugurlu2001 19.02.2010 17:10:00

Re: "Form.Setfocus" hk.

9 Cevaplayan soykanozcelik 19.02.2010 17:11:52

Re: "Form.Setfocus" hk.

10 Cevaplayan ugurlu2001 19.02.2010 18:03:47

Re: "Form.Setfocus" hk.

11 Cevaplayan soykanozcelik 19.02.2010 18:53:34

Re: "Form.Setfocus" hk.

12 Cevaplayan cetinbasoz 19.02.2010 19:54:39

Re: "Form.Setfocus" hk.

13 Cevaplayan ugurlu2001 20.02.2010 09:38:42

Re: "Form.Setfocus" hk.

14 Cevaplayan ugurlu2001 20.02.2010 10:04:45

Re: "Form.Setfocus" hk.

15 Cevaplayan cetinbasoz 22.02.2010 19:07:33

Re: "Form.Setfocus" hk.

16 Cevaplayan ugurlu2001 23.02.2010 08:53:38

Re: "Form.Setfocus" hk.

İleti [ 16 ]