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

@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();
 };

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

	Несколько форм в одном проекте 01.04.2010, 13:02. Показов 11513. Ответов 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