当点击form1的按钮时,想让form2窗体出现,但是每次form1都在,很头疼。
怎样才能实现点击按钮时,form2出现而form1隐藏,当关闭form2时,form出现啊?
怎样才能实现点击按钮时,form2出现而form1隐藏,当关闭form2时,form出现啊?
解决方案 »
- 关于Delphi中的临时表的问题
- 如何将调用的windows系统窗口在自己程序的panel里显示
- 怎样取字段里面的几个值,在线等!
- 请问RAVE如何在DataBind中固定打印的行数??????????
- guolvguolv(guolvguolv)请来拿分(100)_3!(版主请等他拿了分再删)
- 关于父子窗口的问题,想了好久还是没有解决。还请高手帮助。问题如下。
- 有关单选按钮的问题?(在线等待)
- QuickReport横向打印预览时还是竖的,怎么弄?
- 异常捕捉问题,如何捕捉Eoleexecption类异常而且想要加入自己的对话框,如何写呀?
- 闲聊一下...其实系统分析师是做什么工作的...要懂得什么知识才能做这个职位...待遇如何?
- 请问怎样在shelltreeview控件中实现树节点的多选?
- 新手提问:多线程的问题(内详)
form2.show;以上假设2个窗体已经由创建了。楼主是不是这个意思啊?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
form1.Hide;
end;end.
/////////////////////////////////////////////////////////unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit1;type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
end;end.
begin
form2.Show;
form1.Hide;
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
end;
只要把不想见到的窗体的Visible属性设置为 False 就行了