打开delphi7 就有一个form1
我添加了一个form2 在form2里加上显示form的代码
然后运行 form1和from2都会出现
我想在form2里的代码满足一定条件时 可以在form2里用代码隐藏form1 怎么做
我添加了一个form2 在form2里加上显示form的代码
然后运行 form1和from2都会出现
我想在form2里的代码满足一定条件时 可以在form2里用代码隐藏form1 怎么做
解决方案 »
- Delphi数组定义问题
- 急求一SQL语句,我想了一周
- 关于在树里加载图标
- rave 报表的问题,为什么固定报表有时能打印出来,有时某一列打印不出来 ?
- 有没有办法编程控制MU最新版0。96W里的鼠标?
- Delphi7在选择打开一个Project时总是缺省的打开C:\Program Files\Borland\Delphi7\Projects这个目录下,如果改Delphi7的设置,使打开时能
- 窗体的Destroy和Free过程有什么区别?
- 有谁知道这个array[]的植?
- 求:不使用第三方控件,用ADO实现的主从表数据维护模块源代码(分不够可以再开贴加)
- 在更新一条记录的同时,在日志表插入被修改字段的之前值与之后值
- 好久没玩D了,我想请问下这种情况下是否有线程安全的问题?
- .TXT文件的读取问题
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;end.unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementationuses Unit1;{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Visible:=false;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form1.Show;
end;end.