powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Define class & add object
3 сообщений из 3, страница 1 из 1
Define class & add object
    #32355491
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно ли, используя add object, создать в своем классе формы с любое количество элементов?
То есть, сегодня мне надо иметь на форме 10 однотипных кнопок, а завтра 110.
Как это реализовать? Не писать же вручную!
И еще. Есть ли функция, проверяющая "наличие" объекта?
Например, при нажатии на кнопку проверяется, какая надпись на соседней. А как проверить, есть ли эта самая соседняя?
Спасибо.
...
Рейтинг: 0 / 0
Define class & add object
    #32355544
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно ли, используя add object, создать в своем классе формы с любое количество элементов?

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

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

Можно примерно так:
IF TYPE("ThisForm.ObjectName") = "O"
........
ENDIF
...
Рейтинг: 0 / 0
Define class & add object
    #32355652
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АлександрК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
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Define class & add object
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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