L
lkpc
Unregistered / Unconfirmed
GUEST, unregistred user!
简化例子：
两个form(form1,form2) ,form1是主窗口，在其中放置一个adoconnection,不设定
任何属性，form2作为登录窗口，放置两个按钮，一个为butn1,一个为butn2,
写这两个按钮的代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ModalResult :=mrok;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form2.ModalResult:=mrcancel;
end;
工程文件代码如下：
program Project1;
uses
Forms,Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
form2.ShowModal;
if form2.ModalResult=mrcancel then
begin
application.Terminate;
end
else
Application.Run;
end.
上面可以说是最简单的代码了：
运行后如果按钮1被按下，正常！
如果按钮2被按下：则出现错误，请问如何解决这个问题。
两个form(form1,form2) ,form1是主窗口，在其中放置一个adoconnection,不设定
任何属性，form2作为登录窗口，放置两个按钮，一个为butn1,一个为butn2,
写这两个按钮的代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ModalResult :=mrok;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form2.ModalResult:=mrcancel;
end;
工程文件代码如下：
program Project1;
uses
Forms,Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
form2.ShowModal;
if form2.ModalResult=mrcancel then
begin
application.Terminate;
end
else
Application.Run;
end.
上面可以说是最简单的代码了：
运行后如果按钮1被按下，正常！
如果按钮2被按下：则出现错误，请问如何解决这个问题。