Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Define class & add object / 3 сообщений из 3, страница 1 из 1
17.12.2003, 15:13
    #32355491
Jimy
Jimy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Define class & add object
Можно ли, используя add object, создать в своем классе формы с любое количество элементов?
То есть, сегодня мне надо иметь на форме 10 однотипных кнопок, а завтра 110.
Как это реализовать? Не писать же вручную!
И еще. Есть ли функция, проверяющая "наличие" объекта?
Например, при нажатии на кнопку проверяется, какая надпись на соседней. А как проверить, есть ли эта самая соседняя?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2003, 15:30
    #32355544
АлександрК
АлександрК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Define class & add object
Можно ли, используя add object, создать в своем классе формы с любое количество элементов?

Первое, что пришло: в ините формы добавлять объекты в цикле. Например,
FOR m.Count_ = 1 TO КоличествоОбъектов
This.AddObject("command" + ALLTRIM(STR(mCount_)), "CommandButton")
....
ENDFOR

Например, при нажатии на кнопку проверяется, какая надпись на соседней. А как проверить, есть ли эта самая соседняя?

Можно примерно так:
IF TYPE("ThisForm.ObjectName") = "O"
........
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2003, 16:27
    #32355652
Igor Korolyov
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Define class & add object
АлександрКThis.AddObject("command" + ALLTRIM(STR(mCount_)), "CommandButton")
Лучше сразу свой класс добавлять, чтоб не возникало вопроса как прицепить к новой кнопке скажем обработчик Click :)
АлександрКIF TYPE("ThisForm.ObjectName") = "O"
Не совсем корректная проверка - если объект изничтожить, то ссылка на него останется висеть, и будет иметь тип O, только это реально будет .NULL. Т.е. нужно ещё и
Код: plaintext
AND !ISNULL(ThisForm.ObjectName)
добавить. А красивше IMHO
Код: plaintext
IF TYPE( "ThisForm.ObjectName.Name" ) ==  "C"


WBR, Igor
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Define class & add object / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]