Form1 有个按钮,当我按下时显示Form2,同时Form1消失。
解决方案 »
- FastReport如何做这种报表?
- dbgrid问题
- 有关在Delphi中显示gif动画的问题
- 帮我看一下出现列循环,怎么改?
- 关于ComboBox的显示风格
- 哪儿有ZPLII编程的中文手册下载?
- fastreport存成的.frf文件能否通过http方式[frReport1.loadfromfile('http://xxx/xxx/xxx.frf')]被调用?
- ★★关于一个特殊的for循环的困惑?请问答案是什么?
- treeview和数据库
- (我要说清楚)如何将TreeView上的节点连同其关联的对象存在一个文件里并可以重新装载访问。
- 急!!!日,月,年报表的制作
- Case Integer of的Integer是什么意思?
begin
form1.Visible :=false;
form2.visible:=true;
end;
begin
form1.hide;
form2.visible:=true;
form1.show;end;
begin
form1.hide;
form2.hide;
end;
最后一个form1改为form2
begin
form2:=tform2.Create(self);
form2.show;
form1.Hide;
end;
这样不好阿,这样只是把 Form1隐藏了,我关闭Form2之后,Form1还在,而且无法关闭了。 能不能打开Form2的同时关闭Form1呢?
begin
form1.Visible :=false;
form2.visible:=true;
end;
是在im----
下加
uses
form2name;click(Sender:Object);
begin
如果都存在,而且FORM2不关不能进FORM1,那么
form2.showmodel();
如果FORM2在,FORM1不在
form2.show();
Form1.Close();
end
可以
procedure TForm2.Button1Click(Sender: TObject);
begin
form3.show;
form2.Close;
end;
这样绝对解决你的问题:procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Top:=screen.Height+64;
form2.show;
end;
begin
form1.Visible :=false;
form2.ShowModal;
form1.close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Visible :=false;
form2.visible:=true;
end;
能告诉我 form2.ShowModal; 是什么意思吗?
form2.hide;
form2.close;