有两个form,叫form1、form2
form1中有一个button1;
用来显示form2,程序如下:
procedure Tform1.button1Click(Sender: TObject);
begin
form2.Show; //在显示form2的同时要继续显示form1,所以没有用到form1.close;
……
end;form2中有一个button2;用来返回指定的值给form1,程序如下:
procedure Tform2.button2Click(Sender: TObject);
begin
form1:=Tform1.Create(self);
……
form2.close;
end;可是,这样一来,就会有两个form1出现了。
请问应该如何解决?谢谢!
form1中有一个button1;
用来显示form2,程序如下:
procedure Tform1.button1Click(Sender: TObject);
begin
form2.Show; //在显示form2的同时要继续显示form1,所以没有用到form1.close;
……
end;form2中有一个button2;用来返回指定的值给form1,程序如下:
procedure Tform2.button2Click(Sender: TObject);
begin
form1:=Tform1.Create(self);
……
form2.close;
end;可是,这样一来,就会有两个form1出现了。
请问应该如何解决?谢谢!
解决方案 »
- 我想改TTimer类名,请教如何改?结贴率100%
- 用 ttime 作 时间 比较 问题
- dbgrideh标题上画控件 可以吗
- 怎样取得DateTimePicker1的值,并转换成string?
- 如何用delphi做广域网上的CS系统?
- 请问delphi怎么实现数据备份和还原,TShFileOpStruct是什么类?
- 如何编程登录win2000服务器,知道服务器上的帐号和密码,用Delphi怎样实现呢?急!!
- 酷狗的皮肤是用什么控件?
- 高人救命...错误提示"jpeg error #41"
- 新发现,用方正Adapi阅读《Delphi5 开发人员指南》第一章文字无误
- 请教idhtt.post的问题!
- 如何定义父子表单?
但又在调出form2的时候用力“form1:=Tform1.Create(self);”语句创建新窗体,可不就是出现两个form1么?
procedure Tform2.button2Click(Sender: TObject);
begin
form1.show;
form2.close;
end;
不能去,去掉的话,报错
procedure Tform2.button2Click(Sender: TObject);
begin
form1.show;
form2.close;
end;
也不行,还是报错
------------------------------------------------
你这里究竟想做什么呢?
只是不清楚你究竟想实现什么操作
如果你是Form2上实现Form1的显示uses Unit1;
procedure Tform2.button2Click(Sender: TObject);
begin
form1.show;
Form2.Close;//
end;上面你说报错,是报什么错啊?
begin
Form2.Show; //不能再加Form1.close,否则出错,寻址错
end;procedure TForm2.button2Click(Sender: TObject);
begin
查找语句……
……
try
Form1:=TForm1.Create(self); //因为有这句,所以会出现两的form1,
//若打form1.show,也报错,寻址错
Form1.DBEdit1.DataSource:=DataModuleMain.DS_Query_Employee;
Form1.DBEdit1.DataField:='员工号';
……
except
showmessage('失败');//不出现的
end;
active:=true;
Form2.Close;
end;
为什么不做成一个form,放PageControl控件