有两个窗体(form1,form2),当我从form1中按一按钮进入form2的时候,我想把form1给关闭掉,怎么做????
解决方案 »
- delphi 怎么获取excel值
- 工资管理系统历史数据问题
- 把image1里的图片从(10,10)-(20,20)的区域剪切到image2中。如何编写呢?
- 美萍VOD数据库里的那些(*.Dat,*.ibx,*.dbk,*.idx)是什么格式,怎样打开?
- stringgrid怎样动态的增加一行?
- delphi+ado+sql做单机版数据库程序问题
- 向高手请教:Delphi程序运行一个晚上就出现问题?
- RMB求写代码,和APIHOOK相关,功能类似WPE(封包截取 替换)详情请洽QQ:6178 62323
- delphi中通过dbexpress连接db2数据库时,只要求输入数据库名字,没发现输入机器名或IP地址的地方,为什么呢?
- 新手求delphi 读写access 例子
- 关于ADOQuery.Open的疑问。超级恐怖!
- 尚未调用COInitialize是什么意思?
form2.show;
form1.hide;
就这个。。可以把第二个窗口隐藏。。就这么做。
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;type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation
uses unit1;
{$R *.dfm}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.close;
end;end.
form1.hide;//form1.close;//form1.terminate;
我以前也有这样的想法
想隐藏也可以
form1.visible:=false;