Создать проект. Создать разделы меню. Вызвать форму из главного меню

@PEAPLE · Регистрация: 28.05.2013

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

Приветствую Всех. Недавно зарегистрировался на данном форуме. Вопрос и соответственно большая просьба. Пытаюсь создать проект, проявился большой интерес к с++ builder, в главном меню создал стандартные разделы ОТКРЫТЬ, СОХРАНИТЬ, ПЕЧАТЬ. Далее создал раздел в главном меню и обозначил его "РЕШИТЬ". В выпадающем меню "РЕШИТЬ" создал раздел "ВЫЧИСЛИТЬ". Задача состоит в том что при нажатии на раздел "РЕШИТЬ" появлялась ФОРМА. Переход от формы1 к форме2 я выполнил. Но при компиляции проекта выдается ошибка:Multiple declaration for Form1 (Несколько декларации для Form1) и в разделе Unit2.h выделяется красным цветом:class TForm1 : public TForm. Высылаю код. Где ошибка? Подскажите. Please FRIEND.
Для первой формы1

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit123.h"
 #include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
        Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Save1Click(TObject *Sender)
{
 if (SaveDialog1->Execute())
   Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Font1Click(TObject *Sender)
{
if (FontDialog1->Execute())
Memo1->Font=FontDialog1->Font;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Clear1Click(TObject *Sender)
{
 Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N22221Click(TObject *Sender)
{
Form2->ShowModal();
Form2->Visible=true;
}
//---------------------------------------------------------------------------
 
Для формы2
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit123.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

cpp_developer · 28.05.2013, 21:15

#include "Unit123.h"
#include "Unit2.h"

- к какому юниту относится какая форма?
покажите файлы Unit2.h и Unit123.h.

@PEAPLE · 28.05.2013, 21:18 **[ТС]**

Form1 относиться к Unit123.h., а Form2 относиться к "Unit2.h".

cpp_developer · 28.05.2013, 21:30

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

покажите файлы Unit2.h и Unit123.h

Вы всегда читаете только часть сообщения?

@PEAPLE · 28.05.2013, 21:44 **[ТС]**

Извиняюсь притормозил:

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
Unit2H
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TStringGrid *StringGrid1;
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
Unit123H
#ifndef Unit123H
#define Unit123H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TMainMenu *MainMenu1;
        TOpenDialog *OpenDialog1;
        TSaveDialog *SaveDialog1;
        TFontDialog *FontDialog1;
        TPopupMenu *PopupMenu1;
        TMenuItem *File1;
        TMenuItem *Edit1;
        TMenuItem *Open1;
        TMenuItem *Save1;
        TMenuItem *Font1;
        TMenuItem *Clear1;
        TMenuItem *Font2;
        TMenuItem *Table1;
        TMenuItem *Clear2;
        TMenuItem *Table2;
        TLabel *Label1;
        TMemo *Memo1;
        TMenuItem *N33331;
        TMenuItem *N222211;
        void __fastcall Open1Click(TObject *Sender);
        void __fastcall Save1Click(TObject *Sender);
        void __fastcall Font1Click(TObject *Sender);
        void __fastcall Clear1Click(TObject *Sender);
        void __fastcall N222211Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

cpp_developer · 28.05.2013, 21:50

У вас случайно обе формы не названы Form1 ? Вы добвляли форму File->New->Form, или что-то откуда-то копировали и вставляли?

А попробуйте-ка для эксперимента:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published: // IDE-managed Components
TStringGrid *StringGrid1;
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

И откройте, в конце концов, для себя тег кода С++ - кнопка С++ на панели редактора сообщений, глазам больно...

@PEAPLE · 28.05.2013, 22:07 **[ТС]**

Выдает ошибку: Error in module Units2: Declaration of class TForm1 is missing or incorrect (Ошибка в модуле Units2: Декларация класса TForm1 отсутствует или неправильно).

Добавлено через 3 минуты
Нет не копировал и не вставлял.

@nick42 · 28.05.2013, 23:21

LK вам дело говорит: замените все Form1 в Unit2.h (да и в Unit2.cpp и в *.bpr) на Form2 - не должно быть в проекте двух форм с одинаковым названием, - компилятор запутается...

cpp_developer · 28.05.2013, 23:49

nick42,

, эту строчку

C++
1
2
3
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

не заметил:

C++
1
2
3
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};

@PEAPLE · 29.05.2013, 09:19 **[ТС]**

Попробовал. Все ровно выдает ошибку:Error in module Units2: Declaration of class TForm1 is missing or incorrect (Ошибка в модуле Units2: Декларация класса TForm1 отсутствует или неправильно). Пес его знает почему не идет.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
        TStringGrid *StringGrid1;
private:    // User declarations
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

@nick42 · 29.05.2013, 09:41

пёс не знает. Вы только файл Unit2.h показали, а Form2<1> упоминается и в Unit.dfm, и в Project.cpp. Если такой клинч возникает, лучше не морочить голову компилятору, а добавить в проект новую форму (корректно ее назвав), перекопировать на нее ВСЕ с проблемной формы, затем проблемную форму из проекта удалить, а эту новую можно снова переименовать (чтоб из формы1 понятно было), но с учетом своего печального опыта.

@PEAPLE · 29.05.2013, 17:21 **[ТС]**

Да Form2 и Form1 упоминается в Project6.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
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("C:\Program Files\Borland\CBuilder6\Projects\Unit123.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->CreateForm(__classid(TForm2), &Form2);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}

Все сделал но почему-то выдает ошибку Multiple declaration for "TForm1" (Несколько деклараций для Формы1).

@nick42 · 29.05.2013, 17:24

еще файл Unit2<1>.dfm остался. Там тоже может запись типа object Form1: TForm1 сохраниться

@PEAPLE · 29.05.2013, 17:53 **[ТС]**

Понятно. Так вы можете подсказать если не трудно в чем проблема, почему при компиляции проекта окрашивается красным цветом:class TForm1 : public TForm и выдается ошибка Multiple declaration for "TForm1" (Несколько деклараций для Формы1).
Ладно сделаю все с начало. Может где-то ошибку сделал. У Архангельского в книге я такого действия не встречал, т.е вызов формы из главного меню. Может плохо смотрел. Спасибо огромное будет результат кликну.

cpp_developer · 29.05.2013, 19:53

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

в чем проблема

в том, что

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

не встречал, т.е вызов формы из главного меню

- а как же вы форму создавали в данном случАе?

@PEAPLE · 29.05.2013, 19:56 **[ТС]**

Сам проект конечно создавал по Архангельскому. По стандартным правилам. То что я пытаюсь сделать это разве стандартное решение. Вот что я имел ввиду.

cpp_developer · 29.05.2013, 19:56

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

окрашивается красным цветом:class TForm1 : public TForm и выдается ошибка Multiple declaration for "TForm1" (Несколько деклараций для Формы1).

Хорошо бы еще перестроить проект, т.е., MainMenu->Project->Build project ВашПроект, и еще удалить объектные файлы или сделать MainMenu->Project->Clear project, что доступно в старших версиях билдера.

@PEAPLE · 29.05.2013, 19:59 **[ТС]**

Да я хочу полностью проект перестроить. Сделать все с нуля.

cpp_developer · 29.05.2013, 20:09

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

То что я пытаюсь сделать это разве стандартное решение.

- вы (вы ли

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

@PEAPLE · 29.05.2013, 20:28 **[ТС]**

Стандартные разделы у меня все работали. Я не мутил как Вы выразились и не забыл. Я просто добавил в свой проект новый нестандартный раздел. А у Вас я попросил просто помощи так как Вы довольно продолжительное время программируете в билдере.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	28.05.2013, 21:18 [ТС]
	Form1 относиться к Unit123.h., а Form2 относиться к "Unit2.h". 0

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	28.05.2013, 22:07 [ТС]
	Выдает ошибку: Error in module Units2: Declaration of class TForm1 is missing or incorrect (Ошибка в модуле Units2: Декларация класса TForm1 отсутствует или неправильно). Добавлено через 3 минуты Нет не копировал и не вставлял. 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	28.05.2013, 23:21
	LK вам дело говорит: замените все Form1 в Unit2.h (да и в Unit2.cpp и в *.bpr) на Form2 - не должно быть в проекте двух форм с одинаковым названием, - компилятор запутается... 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.05.2013, 09:41
	пёс не знает. Вы только файл Unit2.h показали, а Form2<1> упоминается и в Unit.dfm, и в Project.cpp. Если такой клинч возникает, лучше не морочить голову компилятору, а добавить в проект новую форму (корректно ее назвав), перекопировать на нее ВСЕ с проблемной формы, затем проблемную форму из проекта удалить, а эту новую можно снова переименовать (чтоб из формы1 понятно было), но с учетом своего печального опыта. 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.05.2013, 17:24
	еще файл Unit2<1>.dfm остался. Там тоже может запись типа object Form1: TForm1 сохраниться 0

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	29.05.2013, 17:53 [ТС]
	Понятно. Так вы можете подсказать если не трудно в чем проблема, почему при компиляции проекта окрашивается красным цветом:class TForm1 : public TForm и выдается ошибка Multiple declaration for "TForm1" (Несколько деклараций для Формы1). Ладно сделаю все с начало. Может где-то ошибку сделал. У Архангельского в книге я такого действия не встречал, т.е вызов формы из главного меню. Может плохо смотрел. Спасибо огромное будет результат кликну. 0

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	29.05.2013, 19:56 [ТС]
	Сам проект конечно создавал по Архангельскому. По стандартным правилам. То что я пытаюсь сделать это разве стандартное решение. Вот что я имел ввиду. 0

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	29.05.2013, 19:59 [ТС]
	Да я хочу полностью проект перестроить. Сделать все с нуля. 0

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	29.05.2013, 20:28 [ТС]
	Стандартные разделы у меня все работали. Я не мутил как Вы выразились и не забыл. Я просто добавил в свой проект новый нестандартный раздел. А у Вас я попросил просто помощи так как Вы довольно продолжительное время программируете в билдере. 0