Форум: "Основная";
Текущий архив: 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.006 c