Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-88424
VAleksey
2002-05-17 06:28
2002.05.27
*.ini или что-то вроде этого


1-88448
rvs
2002-05-15 12:48
2002.05.27
О параметрах. Вопрос чайника


1-88557
Сатир
2002-05-16 15:12
2002.05.27
Определение битмапы для нового компонента


1-88475
Саша
2002-05-18 07:48
2002.05.27
Как определить запущена программа или нет?


1-88426
jenbbond
2002-05-17 10:17
2002.05.27
Помощь с графикой