Search  
Friday, February 10, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Clase - VCX si PRG  cum aflu daca u...
 cum aflu daca un obiect exista intr-o forma ?
 
 12/27/2009 10:47:46 AM
User is offlinedecorsoft2000
16 posts


cum aflu daca un obiect exista intr-o forma ?
 (N/A)
cum aflu daca un obiect exista intr-o forma ? sa zicem ca la butonul 'salvare' care apare pe toate formele cu date la "click" vreau sa fac un setfocus() pe primul txtnume care in fiecare forma are alt nume. Cel mai simplu ar fi daca as putea face setfocus() pe obiectul cu tabindex=1 si atunci nu ar mai conta numele. Nu vreau sa tratez eroarea nr.1925 sau sa dau la primul txt acelasi nume in toate formele, poate exista o metoda mai eleganta.
 12/27/2009 3:53:20 PM
User is offlinecostin_mentor
483 posts
www.accessoft.ro
2nd




Re: cum aflu daca un obiect exista intr-o forma ?
 (Romania)

Ceva in genul :
FOR li=1 TO THISFORM.ControLCOUNT
IF 'LBLCAMERA'$UPPER(THISFORM.Controls[li].NAME)
.............................
ENDIF
ENDFOR
 12/27/2009 5:57:48 PM
User is offlinedecorsoft2000
16 posts


Re: cum aflu daca un obiect exista intr-o forma ?
 (N/A)
mersi mult, o sa incerc.
 12/27/2009 6:40:33 PM
User is offlinedecorsoft2000
16 posts


Re: cum aflu daca un obiect exista intr-o forma ?
 (N/A)
Am scanat obiectele si am testat daca .tabindex=1 si daca da am facut setfocus(). Pacat ca nu s-au gandit sa transpuna vechiul _curobj. Mersi.
 12/28/2009 10:56:57 AM
User is offlineDaniel Buduru
2141 posts
1st




Re: cum aflu daca un obiect exista intr-o forma ?
 (N/A)
Functia PEMSTATUS poate spune, printre altele,daca o proprietate a unui obiect exte definita sau nu.

? PEMSTATUS(thisform,'txtnume',5)

_CUROBJ a fost "transpus" in Form.ActiveControl.

Pentru a face setfocus pe un obiect fara a-i cunoaste numele, poti pune acel obiect intr-o proprietate a formei, cam asa:
In initul primului textbox pui :

thisform.Addproperty('SetFocusObject',this)

Sau poti face asta cu codul care gaseste controlul cu tabindex=1, pe care il rulezi insa doar in form.init.

In buton.click:

IF PEMSTATUS(thisform,'SetFocusObject',5) and vartype(thisform.setfocusobject)="O"
      thisform,setfocusobject.setfocus
endif

Daniel Buduru
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Clase - VCX si PRG  cum aflu daca u...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement