Вопрос по SetParent (поэтому, наверное, это вопрос к NickStaves)

16.02.2010, 15:34. **Показов** 1610. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Есть набор форм, назовём их 'интерфейсными'.
Есть отдельная форма, назовём её 'хранилищем'. Сама по себе она нигде не используется: лишь её ЭУ втыкаются по мере надобности в интерфейсные формы (через SetParent).

Представим себе такую задачу:
Нам надо через SetParent положить на интерфейсную форму кнопку (ЭУ CommandButton), которая по Click'у делает два действия:
1. Поменяет Caption у ЭУ Label1 (ЭУ с таким именем есть на каждой интерфейсной форме в наборе)
2. Закроет форму.
Кнопка эта берётся из 'хранилища'.

Несколько дурацкая задача, но так проще и короче объяснять.
Так вот, если б эта кнопка была для интерфейсной формы 'родной', то всё понятно: Label1.Caption = 'Tra-la-la' и затем Unload Me или Unload Form1. А вот как быть, если кнопка не 'родная', а 'пришитая' через SetParent?

Должно быть что-то вроде:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
    Dim myForm As Form
    Dim formHandle As Long
    formHandle = { получить хэндл Parent-формы }
    Set myForm = { как-то получить объект типа Form по его хэндлу }
    Unload myForm
    Set myForm = Nothing
End Sub

Бред, конечно, но смысл в том, что кнопка должна понять, на кого её 'пришили', и из этого каким-то макаром получить объект типа Form: очень критично, чтобы выгрузка формы шла именно по Unload, т.к. событие QueryUnload каждой интерфейсной формы содержит определённый код.

(Ясно, что я не могу оставить просто Unload Me в коде этой кнопки: это просто выгрузит 'хранилище', в результате чего кнопка после её нажатия просто исчезнет с лица интерфейсной формы.)

Ну а как быть с изменением Label1.Caption в такой ситуации - вообще ума не приложу. Понятно, что в конечном итоге, скорее всего, через CallByName, но как добраться сначала до объекта Label1, размещённого на Parent-форме?!

@Konst_one · 16.02.2010, 16:04

На счет того как узнать где лежит кнопка, то это можно:

If TypeOf Command1.Container Is Form Then

else

end if

ну и так далее ...

16.02.2010, 16:23

Чёрт, точно! В событии кнопки Click надо просто написАть:

Visual Basic
1
Unload Command1.Container

И всех дел! И как я забыл про контейнер?!
Спасибо.

Теперь и с Label1 несложно будет разобраться...

PS: Я почему-то полагал, что в данной задаче Command1.Container вернёт 'хранилище', т.е. не ожидал, что SetParent меняет свойство Container. Казалось, что это свойство работает только на 'родных' (для контейнера) контролах. Век живи - век учись...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Konst_one 2 / 2 / 1 Регистрация: 19.07.2007 Сообщений: 737
	16.02.2010, 16:04
	На счет того как узнать где лежит кнопка, то это можно: If TypeOf Command1.Container Is Form Then else end if ну и так далее ... 0