:: Visual Foxpro, Foxpro for DOS
Отловить CREATEOBJECT
fvi
Автор

Сообщений: 37
Откуда: Novosibirsk
Дата регистрации: 07.02.2005
VFP 5 - CREATEOBJECT создание формы начала вылетать по syntax error - suspend указывает только на createobject.
Подскажите как отловить,вылетает раз из десяти.
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
Последовательно комментировать код в создаваемом объекте, как только добьётесь стабильной работы, считай ошибка локализована.


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
fvi
Автор

Сообщений: 37
Откуда: Novosibirsk
Дата регистрации: 07.02.2005
я похож на недоучившегося студента?
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
fvi
я похож на недоучившегося студента?

К сожалению сейчас все телепаты в отпуске, а у остальных нет телевизора, что бы видеть ваш код

Поэтому, либо вы локализуете ошибку в коде самостоятельно, либо показываете репо-код, что бы форум помог её вам найти.

А "общую" рекомендацию я вам уже дал!


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
fvi
Автор

Сообщений: 37
Откуда: Novosibirsk
Дата регистрации: 07.02.2005
loInsert = CREATEOBJECT("frmInsert", .F.)
loInsert.Show(1)

Так как VFP 5 - нет возможности использовать TRY

в init формы
LPARAMETERS tlAddEdit
LOCAL lnSelect

lnSelect = SELECT()

@ 10,10 SAY '1111111111111111111111111111'
WAIT TIMEOUT 50

когда вываливается на цатый раз на SAY не выходит
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
В представленном коде нет ошибки, что-то вы не договариваете ;)

local oForm
Private i
CLEAR
FOR i = 1 TO 100
oForm = CREATEOBJECT('cmdform', .f.)
oform.show()
ENDFOR
CLEAR
DEFINE CLASS cmdform AS form
Caption = "Form1"
Name = "Form1"
PROCEDURE Init
LPARAMETERS tlAddEdit
LOCAL lnSelect
lnSelect = SELECT()
@ 10,10 SAY i &&'1111111111111111111111111111'
WAIT TIMEOUT 0.1
ENDPROC
ENDDEFINE

При таком выводе SAY нарушается естественная последовательность событий, скорее всего надо смотреть в событии Activate.


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)




Исправлено 1 раз(а). Последнее : PaulWist, 04.04.18 12:30
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
fvi
Отловить CREATEOBJECT


fvi
в init формы
...
@ 10,10 SAY '1111111111111111111111111111'
WAIT TIMEOUT 50


fvi
я похож на недоучившегося студента?
Очень даже.


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
fvi
Автор

Сообщений: 37
Откуда: Novosibirsk
Дата регистрации: 07.02.2005
Все решилось - перетащил два комбобокса из проекта на VFP9, поэтому все завертелось.Спасибо за общение.
Ratings: 0 negative/0 positive
Re: Отловить CREATEOBJECT
fvi
Автор

Сообщений: 37
Откуда: Novosibirsk
Дата регистрации: 07.02.2005
Если сказать нечего - лучше помолчать
Ratings: 1 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 41 MikhsR  (Гостей: 40)

© 2000-2024 Fox Club 
Яндекс.Метрика