Видимость функций в других формах

@erikasmik · Регистрация: 02.11.2012

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

Пишу програму. В одной форме есть функция, которая будет повторятса в других формах. Вопрос: как мне её описать чтоб она была видна в других формах? Работаю с c++ builder 6

@SergeyKu · 20.01.2014, 01:29

Описать прототип функции

@Sasha · 20.01.2014, 01:33

описать эту функцию в разделе public первой формы, для того чтобы была видна в других формах

@SatanaXIII · 20.01.2014, 11:08

Вариант Sasha кодом:

Form1.h

C++
1
2
3
4
5
6
7
8
9
10
11
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
 
        void MyFunc(); // Вот здесь объявили
};

Form1.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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TForm1::MyFunc() // Описание 
{
ShowMessage( "Hellor" ); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}

Form2.h

Без изменений

Form2.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h" // Добавление заголовка первой формы чтобы видеть ее функции
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->MyFunc(); // Непосредственно вызов функции первой формы из второй
}

@erikasmik · 20.01.2014, 22:53 **[ТС]**

Да попробовал работает, но мне надо чтоб я нажал на кнопку 1 форме, функция описана Unit2.cpp, а нарисовала
в 3 форме. Резюме: вызвать функцию с 1 формы, описанную во второй и передать и в третию

@SatanaXIII · 21.01.2014, 10:38

Вариант с жесткой привязкой

Unit1.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h" /////
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->FillColorCanvasForm3( rand() % 256 );
}

Unit2.h

C++
1
2
3
4
5
6
7
8
class TForm2 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
        void FillColorCanvasForm3( int color ); //////
};

Unit2.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit3.h" /////
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void TForm2::FillColorCanvasForm3( int color )
{
Form3->Color = color;
}

Unit3.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
Form3->Show();
}

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

Вариант с произвольной

Unit1.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h" /////
#include "Unit3.h" /////
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->FillColorCanvasSomeForm( Form3, rand()%256 );
}

Unit2.h

C++
1
2
3
4
5
6
7
8
class TForm2 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
        void FillColorCanvasSomeForm( TForm *targetForm, int color ); /////
};

Unit2.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
this->Show();
}
//---------------------------------------------------------------------------
void TForm2::FillColorCanvasSomeForm( TForm *targetForm, int color )
{
targetForm->Color = color;
}

Unit3.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
this->Show();
}

@erikasmik · 22.01.2014, 12:56 **[ТС]**

Написал вот такой код, например:
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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Form2->Show();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Form3->Show();
}

Unit2.h:

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>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
        void __fastcall FormPaint(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
        void kabel(TForm *targetForm, int,int,int,int);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

Unit2.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
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
        Canvas->MoveTo(x,y);
        Canvas->LineTo(x1,y1);
}
 
 
void __fastcall TForm2::FormPaint(TObject *Sender)
{
        kabel(Form2,10,30,150,200);
}

Unit3.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::FormPaint(TObject *Sender)
{
        Form2->kabel(Form3,40,50,60,70);
}

Компилировал, вроде как и всё нормално ошыбок нет. Нажымаю на Button1 в первой форме на Form2 рисует нормально, нажымаю на Button2 в первой форме, выбрасывает третию форму, но пустую ничего нет.
Может подскажыте где ошыбка? и где можно найти такую информацию, какую вы мне дали, на англиском особено технический мне слабовато...

@nick42 · 22.01.2014, 13:28

C++
1
2
3
4
5
void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
        targetForm->Canvas->MoveTo(x,y);
        targetForm->Canvas->LineTo(x1,y1);
}

... зачем в аргументах указывать объект (TForm) и затем его не использовать?

@SatanaXIII · 22.01.2014, 13:30

Надо указать на какой форме вы хотите рисовать:

C++
1
2
3
4
5
void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
        targetForm->Canvas->MoveTo(x,y);
        targetForm->Canvas->LineTo(x1,y1);
}

Иначе постоянно будет рисоваться на канве второй формы.

@nick42 · 22.01.2014, 13:34

SatanaXIII, - полусинхрон.

@erikasmik · 22.01.2014, 15:11 **[ТС]**

Спасибо

@erikasmik · 23.01.2014, 20:27 **[ТС]**

Одна проблема решена,но возникла другая, фрагмент
Unit2.h:

C++
1
2
3
public:
        void kabel(TForm *targetForm, int,int,int,int);
        void dvifunk(TForm *targetForm,int,int,int,int);

Unit2.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
         targetForm->Canvas->MoveTo(x,y);
         targetForm->Canvas->LineTo(x1,y1);
}
void TForm2::dvifunk(TForm *targetForm,int x,int y,int x1,int y1)
{
         int a,b;
         a=x+x1;
         b=y+y1;
         targetForm->Canvas->Rectangle(x,y,x1,y1);
         kabel(Form2,x,b,y,a);
}

обратите внимания на последнию строку,это функция в функций

Unit3.cpp:

C++
1
2
3
4
5
6
void __fastcall TForm3::FormPaint(TObject *Sender)
{
 
        Form2->dvifunk(Form3,100,80,30,2);
        Form2->kabel(Form3,40,50,60,70);
}

Unut1.cpp:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Form2->Show();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Form3>Show();
}

когда нажымаю на Button2, рисует на Form3 всё только функций в нутри нет. Я понимаю что если поменал бы
внутри dvifunk(...), в kabel(Form2,...) Form2 на Form3 то Form3 она рисовала нормально, а Form2 нет. Вопрос: нельзя сделать dvifunk(...) универсальную, чтоб и на Form2, и на Form3 рисовало одинакого?

@SatanaXIII · 24.01.2014, 15:01

Функции и так офигенно универсальные относительно форм. Первый параметр targetForm - это указатель на форму на которой надо нарисовать. Какую форму вы там при вызове функции напишите, на той и будет нарисовано.

Ваша проблема кроется в реализации функции dvifunk. Конкретнее вот здесь:

C++
1
2
targetForm->Canvas->Rectangle(x,y,x1,y1);
kabel(Form2,x,b,y,a);

Если в первой строке вы рисуете на той форме, которую указали при вызове, то во второй строке в функцию kabel вы передаете указатель на вторую форму, а не на ту, на которой до этого рисовали.

Встречный вопрос: откуда вы взяли механизм рисования на другой форме через FormPaint? Почему не сразу из кнопки рисовать?

@erikasmik · 24.01.2014, 19:00 **[ТС]**

Я так и понал что там указано в какую форму рисоват kabel(Form2,....); , но мне надо чтоб рисовало с одной кнопки в одну форму, а с другой в другую форму. Наверно мне надо в фунций dvifunk(...) переписат всю функцию kabel(...), то ест:

C++
1
2
3
4
5
void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
        Canvas->MoveTo(x,y);
        Canvas->LineTo(x1,y1);
}

но мне она нужна и отделно.
О Встречном вопросе, я попробовал сделать так:

C++
1
2
3
4
5
6
void __fastcall TForm1::Button2Click(TObject *Sender)
{
       // Form3->Show();
        Form2->dvifunk(Form3,100,80,30,2);
        Form2->kabel(Form3,10,30,150,200);
}

но она ничего неделает. Я не програмист, но только хочю написать програму коректно. Как понимаю Form2 укаывает от куда брать функцию, (Form3,...) куда рисовать. Может я не так что то делаю?

@SatanaXIII · 27.01.2014, 10:04

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

Как понимаю Form2 укаывает от куда брать функцию, (Form3,...) куда рисовать.

Все правильно.

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

но она ничего неделает

Да вообще-то должна. Было бы яснее, если б вы привели полный код того, как вы делали.

И вообще, может сразу скажете все, что вам требуется реализовать? И как оно вообще должно быть и что делать.

@erikasmik · 29.01.2014, 11:42 **[ТС]**

Я хочю сделать програму об одном устройстве. Чтоб в ней было вся информация: електрические схемы отдельных узлов, ошыбки, ...., и т.д. Електрические схемы отдельных узлов должны откриватса в отдельных окнах. Например: в одной форме я рисую провод, но провод будет нужен не в одной форме. По этому я пишу функцию в Unit2.h:

C++
1
2
public:
        void kabel(TForm *targetForm, int,int,int,int);

в Unit2.cpp:

C++
1
2
3
4
5
        void TForm2::kabel(TForm *targetForm, int x,int y,int x1,int y1)
{
         targetForm->Canvas->MoveTo(x,y);
         targetForm->Canvas->LineTo(x1,y1);
}

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

C++
1
2
public:  
         void motor(TForm *targetForm,int,int,int,int);

Пишу функцию в Unit2.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void TForm2::motor(TForm *targetForm,int x,int y,int x1,int y1)
{
         int a,b,...; //вспомогательные переменные
         targetForm->Canvas->Ellipse(x,y,x1,y1);
         /*
            сдесь делаю рассчёт касателЬных окружности
            и по полученым данным вывожу провода
        */
            kabel(Form2,x,b,y,a);
           
            ................
}

Всё хорошо пока я оперирую функциеи motor(...) в Form2, но когда мне надо мотор рисовать в другой форме, эту часть kabel(Form2,x,b,y,a);мне непоказывает. Конечно там указано в какую форму рисовать (Form2,....) и в другой форме не будет. Я хочю написать фунцию универсальную чтоб она гадилос во всех формах. Вопрос: как мне сделать чтоб эта фунция была видна в других формах? Думаю надо когда вызываю функцию motor(...), надо передать через параметры motor(...) в функцию kabel(....); в какой форме рисовать, но как это сделать? Или мне переписать функцию kabel(....); в motor(...). Эта функция короткая, можно переписать, но как быть если она была бы сложная?

@SatanaXIII · 29.01.2014, 11:53

Функции kabel плевать где рисовать. Она универсальная. Но вы ее используете для рисования только на второй форме.
Еще раз. Вы используете универсальную функцию и передаете в нее только одно жестко зашитое значение.

Добавлено через 1 минуту
Не меняйте описание функции kabel. Меняйте использование.
Вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void TForm2::motor(TForm *targetForm,int x,int y,int x1,int y1)
{
         int a,b,...; //вспомогательные переменные
         targetForm->Canvas->Ellipse(x,y,x1,y1);
         /*
            сдесь делаю рассчёт касателЬных окружности
            и по полученым данным вывожу провода
        */
            kabel(targetForm,x,b,y,a);
           
            ................
}

Добавлено через 13 секунд
Сейчас картинку нарисую.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@erikasmik 0 / 0 / 0 Регистрация: 02.11.2012 Сообщений: 59

	Видимость функций в других формах 19.01.2014, 23:33. Показов 3239. Ответов 16 Метки нет (Все метки) Пишу програму. В одной форме есть функция, которая будет повторятса в других формах. Вопрос: как мне её описать чтоб она была видна в других формах? Работаю с c++ builder 6 0

@SergeyKu 108 / 49 / 26 Регистрация: 24.10.2012 Сообщений: 56
	20.01.2014, 01:29
	Описать прототип функции 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.01.2014, 01:33
	описать эту функцию в разделе public первой формы, для того чтобы была видна в других формах 0

@erikasmik 0 / 0 / 0 Регистрация: 02.11.2012 Сообщений: 59
	20.01.2014, 22:53 [ТС]
	Да попробовал работает, но мне надо чтоб я нажал на кнопку 1 форме, функция описана Unit2.cpp, а нарисовала в 3 форме. Резюме: вызвать функцию с 1 формы, описанную во второй и передать и в третию 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	22.01.2014, 13:34
	SatanaXIII, - полусинхрон. 0

@erikasmik 0 / 0 / 0 Регистрация: 02.11.2012 Сообщений: 59
	22.01.2014, 15:11 [ТС]
	Спасибо 0

Видимость функций в других формах

Решение