 |
Вставьте приведенный код в событие Init формы:
LOCAL i, lcWindName, llRetVal
llRetVal = .T.
i = 0
lcWindName = WCHILD("",0) && The "" must be a NULL or empty string
DO WHILE !EMPTY(lcWindName)
IF lcWindName = UPPER(this.name)
i = i + 1
IF i > 1
llRetVal = .F.
EXIT
ENDIF
ENDIF
lcWindName = WCHILD("",1) && The "" must be a NULL or empty string
ENDDO
RETURN llRetVal
|
|