Дочерние формы (не MDI) и STL::List

@Wolver · Регистрация: 26.04.2015

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

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

C++
1
2
3
4
5
6
7
8
void __fastcall TfmSendFile::FormCreate(TObject *Sender)
{
    sbtDel = new TsButton(fmSendFile);
    sbtDel->OnClick = sbtDelClick;
 
    Number = 0;
    vLabel.push_back(new TsLabel(fmSendFile));
...

непосредственно к самой форме? (у меня в программе - список указателей дочерних окон главной формы). И ещё, как удалять из списка эти указатели?
Unit1.cpp

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
//===========================================================================
#include <vcl.h>
#include <list.h>
#pragma hdrstop
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
    list<TForm1*> myList; 
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    frm_2 = NULL; //(TForm*) - указатель на дочернюю форму
    ed = NULL;    //(TEdit*) - указатель на Edit этой формы
}
//===========================================================================
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   
//    if ( frm_2 == NULL )
    {
    frm_2 = new TForm( this );            
//  frm_2->Parent = this;
    frm_2->Top = (ClientHeight - frm_2->Height)*0.50; 
    frm_2->Left = (ClientWidth - frm_2->Width)*0.50;
    
//  frm_2->ActiveControl = NULL;
    ::SetParent( frm_2->Handle, Handle ); 
    frm_2->OnClose = &Form2Close;         
    frm_2->Show();                       
 
        ed = new TEdit( frm_2 );           
    ed->Parent = frm_2;
        ed->Top = 20;                         
    ed->Left = 30;
    ed->Font->Style = TFontStyles() << fsBold;    
    }
//--------------------------
    myList.push_back(new TForm1(frm_2)); // <--- вот это интересует в сравнении с темой про компоненты
//--------------------------
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action)
{
    if (ed!=NULL)
        delete ed;     
    ed = NULL;     
 
    if (frm_2!=NULL)   
        delete frm_2;
    frm_2 = NULL;     
}
//---------------------------------------------------------------------------
 
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
}
//---------------------------------------------------------------------------

Unit1.h

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
//===========================================================================
#ifndef     Unit1H
#define     Unit1H
 
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
 
//---------------------------------------------------------------------------
class   TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TEdit *Edit1;
    void __fastcall Button1Click(TObject *Sender);
 
private:    // User declarations
    TForm* frm_2;    
    void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action);  
    TEdit* ed;    
 
protected:
        void __fastcall WndProc(TMessage &Message);
 
public:     // User declarations
    __fastcall  TForm1(TComponent* Owner); 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif  //(Unit1H)
//===========================================================================

@Wolver · 29.08.2016, 19:07 **[ТС]**

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

А как вы собираетесь линии между "формами" рисовать?

используя GDI и делая отрисовку по событию WM_PAINT.
но что с этим мне делать:

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

В догонку, вопрос по теме: я так и не понял (допустим на дочерних формах сейчас только 1 динамич. Edit), как узнавать то, что я написал какой-то текст в Edit 1-й дочерней формы, а не 3-й?

???

@Avazart · 29.08.2016, 19:55

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

узнавать то, что я написал какой-то текст в Edit 1-й дочерней формы, а не 3-й?

По Sender-ру в OnChange ну и Parent-у

Добавлено через 3 минуты

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

используя GDI и делая отрисовку по событию WM_PAINT.

Может вы имеете ввиду GDI + ?
И есть же OnPaint и Canvas.

@Wolver · 12.09.2016, 22:45 **[ТС]**

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

По Sender-ру в OnChange ну и Parent-у

Работает, находит через ф-цию IndexOf значение индекса в TComponentList по указателю. И после этого, зная по коду, что каждый TEdit создавался сразу же после каждой дочерней TForm, - их индексы совпадают, а значит тот же 3-й Edit лежит на 3-й форме. Т.е. зная порядковый номер редактируемого Edit я могу сделать что угодно дальше, напр. запихнуть его текст в заголовок окна yahoo:

C++
1
2
3
4
5
6
void __fastcall TForm1::EditChange(TObject *Sender)
{
    int temp=lst_ed->IndexOf(static_cast<TEdit*>(Sender)); 
    Memo1->Lines->Add(AnsiString(temp));
    static_cast<TForm*>(lst->Items[temp])->Caption=static_cast<TEdit*>(lst_ed->Items[temp])->Text;
}

Это вполне норм?
И ещё, есть ли норм книги по контейнерам VCL с детально описанными примерами и прочей инфой, как напр. у Фримена в "Паттерны проектирования" описано какой паттерн для чего юзать и как?

Добавлено через 43 секунды

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

Может вы имеете ввиду GDI + ?

Да, его.

@Avazart · 12.09.2016, 23:25

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

- их индексы совпадают, а значит тот же 3-й Edit лежит на 3-й форме.

Для это есть свойство Tag

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 29.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .