| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добовление новой формы к проекту...... [D6, WinXP]

PREDATOR*AP ©   (2002-05-17 16:22:00) 

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

---

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

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

---

AFROLOV   (2002-05-17 16:39:00) [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.

---

Наверх