Deagro
20.12.2013, 16:18
Доброго времени суток,дорогие форумчани, недавно начал изучать делфи,вот у меня появились кое-какие вопросы. Итак начнём:
1)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
a: string;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:='Deagro';
If Edit1.Text=a then
Form2.Show;
end;
end.
И второй
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.a:=Form2.Edit1.Text;
end;
end.
Изначально вообще не мог менять переменную а,нашёл выход благодаря J-Fobos а сейчас переменная меняется,НО форм2 всеравно открывается когда на Form1.Edit1.Text=Deagro.
2) как сделать чтобы когда форма 2 открывается Форма 1 закрылась(при этом не закрывая форму2)
3) Как сделать чтобы пароль(в моем случае переменная "а") всегда сохранялось(после того как её изменят с формы 2)
1)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
a: string;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:='Deagro';
If Edit1.Text=a then
Form2.Show;
end;
end.
И второй
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.a:=Form2.Edit1.Text;
end;
end.
Изначально вообще не мог менять переменную а,нашёл выход благодаря J-Fobos а сейчас переменная меняется,НО форм2 всеравно открывается когда на Form1.Edit1.Text=Deagro.
2) как сделать чтобы когда форма 2 открывается Форма 1 закрылась(при этом не закрывая форму2)
3) Как сделать чтобы пароль(в моем случае переменная "а") всегда сохранялось(после того как её изменят с формы 2)