Несколько форм в одном проекте

@salvafion · Регистрация: 16.06.2009

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

мне нужно создать две формы причем вторая вызывается по нажатию кнопки и еще там нужно передать объект моего класса...как это сделать?

@NiTan · 01.04.2010, 13:35

1.Создаешь проект
2. Выбираешь из пункта New подпунтк Form. Появится 2 форма.
3. В Unit1.cpp под строкой "#include "Unit1.h" пишешь:

C++
1
#include "Unit2.h"

4. И на какое-нибудь событие теперь пишешь:

C++
1
Form2->ShowModal();

@salvafion · 01.04.2010, 13:35 **[ТС]**

при вызове showmodal выводится сообщение мол access violation в какомто файле иногда в vcl120 а иногда и в exe файле проекта

Добавлено через 25 секунд
и мне же тутда надо объект класса передать

@NiTan · 01.04.2010, 13:37

Весь код покажи.

@salvafion · 01.04.2010, 15:23 **[ТС]**

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
81
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Lift.h"
#include "Lift2.cpp"
#include "Lift2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//TForm1 *Form2;
 
Lift b1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
Build::Build(int flo)
  {
      Floors=flo;
  }
 
void Build::Set()
  {
     Floors=Form1->ComboBox1->ItemIndex+3;
 
  }
 
int Build::GetFlo()
  {
      return Floors;
  }
 
  void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
    b1.Set();
    b1.set();
 
    Edit2->Text=b1.GetFlo();
    if(SpeedButton1->Down==1)b1.SetSpeed(1);
        if(SpeedButton2->Down==1)b1.SetSpeed(2);
            if(SpeedButton3->Down==1)b1.SetSpeed(3);
 
    Edit3->Text=b1.GetSpeed();
    Form2->ShowModal();//вот вызов формы 
    Close();
 
 
}
//---------------------------------------------------------------------------
 Lift::Lift():Build(0)
 {
     speed=0;
     people=0;
    capacity=0;
 }
 
 void Lift::set()
 {
     capacity=Form1->Edit1->Text.ToInt();
 
 }
 
 void Lift::SetSpeed(int Sp)
 {
     speed=Sp;
 }
 
 int Lift::GetCap()
  {
      return capacity;
  }
 int Lift::GetSpeed()
 {
     return speed;
 }

Добавлено через 3 минуты
ну и там перед вызовом збыл написать Form2 = new TForm2(NULL); но не суть все равно ошибка при выполнении

Добавлено через 5 минут
ну у меня щас на второй форме ток одна кнопка которая закрывает окно....и он при вызове втоой формы говорит что class button is not found

Добавлено через 2 минуты
или чет про window modaldj,otv разные ошибки но с acces violation

Добавлено через 1 час 32 минуты
можно перейти ко второму вопросу..как мне передать в следущую форму объект своего класса сохранив в нем все поля?

@Airhand · 02.04.2010, 13:18

Нужно разобраться с созданием форм: вторая форма уже создется, а ей делают "Form2 = new TForm2(NULL);". Надо также понять какая форма будет модальной.
Объект можно передать по-разному: проще всего в первом юните его определить, а во втором со словом "extern" объявить. Например:
Unit1.cpp:
double d = 2.0;
Unit2.cpp:
extern double d;

@salvafion · 02.04.2010, 16:25 **[ТС]**

я уже new Form убрал, мне не нужно оно) а вот с екстерном не идет он все равно передает туда и теряет все значения будто конструктор запускает

@Airhand · 02.04.2010, 18:50

Я пользуюсь экстерном и ничего... Возможно, как-то криво создаёшь

@salvafion · 02.04.2010, 19:03 **[ТС]**

ну так скажите как создавать правильно и передавать?

@Airhand · 02.04.2010, 19:19

1. Не обращайся ко мне на "вы", я буду обращаться к тебе как ТЫ хочешь.
2. Я ничего экстраординарного не делаю: создаю как в примере. Один ньюанс: хидер формы 1 не должен включаться в форму 2 и наборот. Иначе какой же это будет экстернал, если препроцессор вставит объявление перед определением ? Тогда надо передавать как-то по другому: через память или файл.

@salvafion · 02.04.2010, 19:22 **[ТС]**

типа FormStyle поставить на NOrmal?

@Airhand · 02.04.2010, 19:26

Причём тут формстайл ?

@salvafion · 02.04.2010, 20:35 **[ТС]**

ну там же определяется кто будет родительской формой а кто child

@Airhand · 02.04.2010, 21:57

Ты когда создёшь форму оператором new, ты в скобках указываешь кто будет владельцем.

@Vlad_IT · 03.04.2010, 12:13

Сообщение от Ni'Tan

1.Создаешь проект
2. Выбираешь из пункта New подпунтк Form. Появится 2 форма.
3. В Unit1.cpp под строкой "#include "Unit1.h" пишешь:

C++
1
#include "Unit2.h"

4. И на какое-нибудь событие теперь пишешь:

C++
1
Form2->ShowModal();

Спасибо друг! Все утро мучился!

@salvafion · 04.04.2010, 18:25 **[ТС]**

Все равно не передается объкт с его данными

@Airhand · 04.04.2010, 20:53

Как ты передёшь объект ?
Напиши код объекта.

@salvafion · 04.04.2010, 21:50 **[ТС]**

ну во второй форме

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Lift2.h"
#include "Lift.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
     int A;
     A=b1.GetCap();
     Edit1->Text=A  ;
}
 
//-----------

а вот что в первой

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
81
82
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Lift.h"
#include "Lift2.h"
//#include "Lift2.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//TForm1 *Form2;
 
Lift b1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
Build::Build(int flo)
  {
      Floors=flo;
  }
 
void Build::Set()
  {
     Floors=Form1->ComboBox1->ItemIndex+3;
 
  }
 
int Build::GetFlo()
  {
      return Floors;
  }
 
  void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
    b1.Set();
    b1.set();
 
    Edit2->Text=b1.GetFlo();
    Edit4->Text=b1.GetCap();
    if(SpeedButton1->Down==1)b1.SetSpeed(1);
        if(SpeedButton2->Down==1)b1.SetSpeed(2);
            if(SpeedButton3->Down==1)b1.SetSpeed(3);
 
    Edit3->Text=b1.GetSpeed();
    Form2->ShowModal();
    //Close();
 
 
}
//---------------------------------------------------------------------------
 Lift::Lift():Build(0)
 {
     speed=0;
     people=0;
    capacity=0;
 }
 
 void Lift::set()
 {
     capacity=Form1->Edit1->Text.ToInt();
 
 }
 
 void Lift::SetSpeed(int Sp)
 {
     speed=Sp;
 }
 
 int Lift::GetCap()
  {
      return capacity;
  }
 int Lift::GetSpeed()
 {
     return speed;
 }

@Airhand · 04.04.2010, 22:53

А где код самого объекта, который передаётся ?

@salvafion · 05.04.2010, 13:43 **[ТС]**

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
//---------------------------------------------------------------------------
 
#ifndef LiftH
#define LiftH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ActnList.hpp>
#include <Buttons.hpp>
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TButton *Button1;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TLabel *Label4;
    TComboBox *ComboBox1;
    TEdit *Edit2;
    TEdit *Edit3;
    TSpeedButton *SpeedButton1;
    TSpeedButton *SpeedButton2;
    TSpeedButton *SpeedButton3;
    TEdit *Edit4;
    void __fastcall Button1Click(TObject *Sender);
    //void __fastcall SpeedButton1Click(TObject *Sender);
    //void __fastcall SpeedButton2Click(TObject *Sender);
    //void __fastcall SpeedButton3Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
class Build//:public TForm1
{
    int Floors;
  public:
    Build(int flo=0);
    void Set();
    int GetFlo();
};
 class Lift:public Build
 {
     int speed;
     int capacity;
     int people;
     public:
     Lift();
     void SetSpeed(int Sp);
     void set();
     int GetCap();
     int GetSpeed();
 };

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194

	Несколько форм в одном проекте 01.04.2010, 13:02. Показов 11461. Ответов 28 Метки нет (Все метки) мне нужно создать две формы причем вторая вызывается по нажатию кнопки и еще там нужно передать объект моего класса...как это сделать? 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	01.04.2010, 13:35 [ТС]
	при вызове showmodal выводится сообщение мол access violation в какомто файле иногда в vcl120 а иногда и в exe файле проекта Добавлено через 25 секунд и мне же тутда надо объект класса передать 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	01.04.2010, 13:37
	Весь код покажи. 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	02.04.2010, 13:18
	Нужно разобраться с созданием форм: вторая форма уже создется, а ей делают "Form2 = new TForm2(NULL);". Надо также понять какая форма будет модальной. Объект можно передать по-разному: проще всего в первом юните его определить, а во втором со словом "extern" объявить. Например: Unit1.cpp: double d = 2.0; Unit2.cpp: extern double d; 1

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	02.04.2010, 16:25 [ТС]
	я уже new Form убрал, мне не нужно оно) а вот с екстерном не идет он все равно передает туда и теряет все значения будто конструктор запускает 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	02.04.2010, 18:50
	Я пользуюсь экстерном и ничего... Возможно, как-то криво создаёшь 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	02.04.2010, 19:03 [ТС]
	ну так скажите как создавать правильно и передавать? 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	02.04.2010, 19:19
	1. Не обращайся ко мне на "вы", я буду обращаться к тебе как ТЫ хочешь. 2. Я ничего экстраординарного не делаю: создаю как в примере. Один ньюанс: хидер формы 1 не должен включаться в форму 2 и наборот. Иначе какой же это будет экстернал, если препроцессор вставит объявление перед определением ? Тогда надо передавать как-то по другому: через память или файл. 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	02.04.2010, 19:22 [ТС]
	типа FormStyle поставить на NOrmal? 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	02.04.2010, 19:26
	Причём тут формстайл ? 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	02.04.2010, 20:35 [ТС]
	ну там же определяется кто будет родительской формой а кто child 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	02.04.2010, 21:57
	Ты когда создёшь форму оператором new, ты в скобках указываешь кто будет владельцем. 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	04.04.2010, 18:25 [ТС]
	Все равно не передается объкт с его данными 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	04.04.2010, 20:53
	Как ты передёшь объект ? Напиши код объекта. 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	04.04.2010, 22:53
	А где код самого объекта, который передаётся ? 0