Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

Добовление новой формы к проекту......   Найти похожие ветки 

← →
PREDATOR*AP   (2002-05-17 16:22) [0]

Подскажите как мне добавить новую форму к проекту и как передавать значения переменых и процедур между формами? я вот тут пытался присоидинить форму но у меня как то не очень ето получилось :( (могу прислать на Email что бы было понятние чего я от вас хочу :))

---

← →
Vitaly   (2002-05-17 16:39) [1]

Приложение, написанное на Delphi, многомодульное.
Одновременно с формой добавляется модуль.
Чтобы увидеть переменные модуля М1 в другом модуле (М2) надо
во-первых, глобально описать переменные в М1,
во-вторых, подключить модуль М1 к модулю М2 ( uses M1),
и в-нулевых, почитать об области определения и об области
видимости переменных.

---

← →
AFROLOV   (2002-05-17 16:39) [2]

Добавление новой формы:
меню File->New->Form

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
A:integer;
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.B:=1;end; //Все остальное аналогично.

end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
B:integer;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
uses Unit1;//!!!!!!!!!!!!
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.A:=1;
end;
end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c