Создание дочерней формы

@Нитонисе · Регистрация: 12.10.2013

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

Может быть вопрос элементарный, но с ходу решения не нашел.

Задача такая. Есть главная форма с кнопкой, по нажатию на которую открывается дочерняя форма. Эта дочерняя форма должна обладать следующими характеристиками:
1. На панели задач не должно быть кнопки для созданной дочерней формы.
2. Дочерняя форма должна иметь возможность свободно перемещается в пределах главной формы, не выходя за ее пределы.
3. При перемещении окна главной формы - дочерняя форма перемещается в след за ней, сохраняя свое относительное положение.
4. Когда фокус находится в дочерней форме - главная форма должна оставаться активной. То есть как будто бы это не форма, а простая панель, родителем которой является главная форма.

Как принципиально эта задача решается?

@Нитонисе · 21.11.2013, 18:11 **[ТС]**

Сообщение от UI

но шаманство с WM_NCACTIVATE

Не подскажите какой тут надо плясать танец?

А то деактивация главной формы раздражает

@volvo · 21.11.2013, 19:02

Сообщение от Нитонисе

какой тут надо плясать танец?

Румбу:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
// Header
class TForm1 : public TForm
{
__published:    // IDE-managed Components
 
    // ...
 
private:
protected:
    void __fastcall WndProc(TMessage &Message); // <--- !!!
 
public:
    __fastcall TForm1(TComponent* Owner);
    // ...
};
 
 
// Реализация
void __fastcall TForm1::WndProc(TMessage &Message)
{
    static bool isAppActive = true;
 
    switch(Message.Msg)
    {
        case WM_NCACTIVATE:
            Message.WParam = isAppActive;
            Message.Result = DefWindowProc(this->Handle, Message.Msg, Message.WParam, Message.LParam);
            break;
 
        case WM_ACTIVATEAPP:
            isAppActive = (Message.WParam != 0);
            LPARAM lp = 0L;
            this->Perform(WM_NCACTIVATE, 0, lp);
            Message.Result = 0;
            return;
    }
    TForm::WndProc(Message); // interited
}

"И всего делов" (С)

@Staut · 22.11.2013, 10:16

- UI, подскажите пожалуйста почему вариант:

C++
1
  ::SetParent( Form2->Handle, Handle );

работает, а вариант:

C++
1
  Form2->Parent = this;

- нет! Неужели что-то просто не доделано в Билдере ...
- А вообще-то мне кажется, что Вы зря героически сражаетесь с 4-мя недостатками (3-мя перечисленными
в посте #6 и дезактивацией Основной Формы) такими страшными средствами. Посмотрите мой вариант. Проще
просто некуда! И лишен всех 4-х недостатков по определению. Правда это не MDI ...

@volvo · 22.11.2013, 11:39

Сообщение от Staut

И лишен всех 4-х недостатков по определению.

Ничего подобного.

Сообщение от Нитонисе

Когда фокус находится в дочерней форме - главная форма должна оставаться активной.

Это не выполняется. А чтобы это изменить, и нужно обрабатывать WM_NCACTIVATE + WM_ACTIVATEAPP...

Сообщение от Staut

Правда это не MDI

У меня тоже не MDI. MDI, как выяснилось, автору темы не подходит.

@Staut · 22.11.2013, 13:11

- Тогда я решительно не понимаю что значит одновременно активные сразу две Формы ? Просто обе
Формы нарисованы ярким цветом ? Ведь нельзя же вводить данные одновременно сразу в две Формы,
даже если они обе активны ! Мышка-то одна ! Все равно надо переходить от одной Формы к другой.
- Не знаю смотрели ли Вы последнее мое приложение ? Просто та Форма, с которой Вы в данный момент работаете
немного более ярко окрашена, а та с которой сейчас не работаете - чуть тускнее. Переходить от одной Формы к
другой можно бесчисленное число раз с помощью простого щелчка по нужной Форме (даже не закончив ввода в
какие-либо контролы, а потом вернувшись и все доделав).
- Спасибо UI за пример работы с Процедурой Окна Формы (это ведь API), хотя и не все еще там понимаю ...

Добавлено через 4 минуты
- Да, совсем забыл, а почему все же не работает Form2->Parent = Form1; ?

@volvo · 22.11.2013, 13:12

А никто не требует одновременного ввода в 2 формы одновременно. Просто надо, чтобы, когда пользователь работает с дочерней формой, при беглом взгляде на экран было бы видно, что за приложение сейчас активно. А это - другой заголовок окна, отбрасываемая (или не отбрасываемая) родительской формой на нижележащие приложения тень, и т.д... В твоем случае, как только я активировал дочернюю форму, эти признаки у родительской формы пропали.

Сообщение от Staut

а почему все же не работает Form2->Parent = Form1;

Потому что так написана. Если бы у формы, которую надо сделать дочерней, не было Border-а (попробуй стиль bsNone для второй формы), то все бы работало прекрасно. А вот с рамкой VCL-евский метод SetParent работать не умеет. Поэтому надо отдать эту проблему системе, пускай она разбирается...

@Staut · 22.11.2013, 14:41

- UI, попробовал Form2->BorderStyle = bsNone; Лучше не надо, вообще приложение вылетает !
Рисует вторую Форму лишь частично и т.д. ...
- Что касается работы сразу двух Форм, то Вы имеете в виду, что вторая (не активная в данный момент Форма)
должна продолжать работать с данными, выводить всю поступающую новую информацию. Ну тогда это
может и правда ... Мне просто пока не доводилось писать таких приложений.

@volvo · 22.11.2013, 14:54

Сообщение от Staut

вообще приложение вылетает !

И это не так. Нормально отображается форма без бордера (правда в левом верхнем углу по умолчанию). Но только это не то, что нужно ТС-у.

@Staut · 22.11.2013, 17:02

- Но вот факт. У меня-то 2-я Форма создается динамически. Добавляю в совершенно рабочее приложение
(третье мое приложение) в том месте, где вторая Форма создается и определяются ее параметры всего один
оператор:

C++
1
  frm_2->BorderStyle = bsNone;

и вторая Форма начинает рисоваться НАПОЛОВИНУ. Ну ладно, с этим можно разбираться очень долго, но совершенно
незачем.

@KlikQ · 25.05.2014, 17:54

Может знаете как сделать на первой форме кнопку, чтобы при нажатии на нее закрывалась вторая? Во второй форме BorderStyle = bsNone.

Новые блоги и статьи Все статьи Все блоги /
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .

@Нитонисе 10 / 10 / 4 Регистрация: 12.10.2013 Сообщений: 249

	Создание дочерней формы 21.11.2013, 11:05. Показов 9137. Ответов 29 Метки нет (Все метки) Может быть вопрос элементарный, но с ходу решения не нашел. Задача такая. Есть главная форма с кнопкой, по нажатию на которую открывается дочерняя форма. Эта дочерняя форма должна обладать следующими характеристиками: 1. На панели задач не должно быть кнопки для созданной дочерней формы. 2. Дочерняя форма должна иметь возможность свободно перемещается в пределах главной формы, не выходя за ее пределы. 3. При перемещении окна главной формы - дочерняя форма перемещается в след за ней, сохраняя свое относительное положение. 4. Когда фокус находится в дочерней форме - главная форма должна оставаться активной. То есть как будто бы это не форма, а простая панель, родителем которой является главная форма. Как принципиально эта задача решается? 0

@Staut 98 / 81 / 14 Регистрация: 26.07.2013 Сообщений: 600
	22.11.2013, 13:11
	- Тогда я решительно не понимаю что значит одновременно активные сразу две Формы ? Просто обе Формы нарисованы ярким цветом ? Ведь нельзя же вводить данные одновременно сразу в две Формы, даже если они обе активны ! Мышка-то одна ! Все равно надо переходить от одной Формы к другой. - Не знаю смотрели ли Вы последнее мое приложение ? Просто та Форма, с которой Вы в данный момент работаете немного более ярко окрашена, а та с которой сейчас не работаете - чуть тускнее. Переходить от одной Формы к другой можно бесчисленное число раз с помощью простого щелчка по нужной Форме (даже не закончив ввода в какие-либо контролы, а потом вернувшись и все доделав). - Спасибо UI за пример работы с Процедурой Окна Формы (это ведь API), хотя и не все еще там понимаю ... Добавлено через 4 минуты - Да, совсем забыл, а почему все же не работает Form2->Parent = Form1; ? 0

@Staut 98 / 81 / 14 Регистрация: 26.07.2013 Сообщений: 600
	22.11.2013, 14:41
	- UI, попробовал Form2->BorderStyle = bsNone; Лучше не надо, вообще приложение вылетает ! Рисует вторую Форму лишь частично и т.д. ... - Что касается работы сразу двух Форм, то Вы имеете в виду, что вторая (не активная в данный момент Форма) должна продолжать работать с данными, выводить всю поступающую новую информацию. Ну тогда это может и правда ... Мне просто пока не доводилось писать таких приложений. 0

@KlikQ 3 / 3 / 4 Регистрация: 06.05.2013 Сообщений: 63
	25.05.2014, 17:54
	Может знаете как сделать на первой форме кнопку, чтобы при нажатии на нее закрывалась вторая? Во второй форме BorderStyle = bsNone. 0

Создание дочерней формы

Решение