delphi的有趣题 请问一下高手: 如何实现在delphi中两个窗体之间的切换 比如: 单击form1中的按扭显示窗体form2 后单击form2中的按扭也可以显示窗体form1 就这样一直循环着 先谢谢你的帮助 留个代码好吗???? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //--------------------uint1.pasuses Unit2;procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show;end;//--------------------unit2.pasprocedure TForm2.Button1Click(Sender: TObject);begin Application.MainForm.Show;end; Unit Unit1 ...implementationuses Unit2;procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show;end;//--------------------unit2.pasUnit Unit2...implementationuses Unit1;procedure TForm2.Button1Click(Sender: TObject);begin Form1.Show;end; 最好让他自动点击button1就更好了~~~哈哈~死寂啦!!!! 问题虽然解决了,但是从设计上来说,这样直接操作两个Form是有问题的。 Label显示标题不全? DBGridEh怎样关闭排序功能 dbgrideh下接设置 字符串截 急救:Delphi开发CORBA初级问题 《delphi 32核心API编程》这本书怎么样! 请大家教一教我!!! 除了adoquery.savetofile之外,还有什么方法可以把查询的记录保存,并且能够将来再添加数据资料呢?? 看到高手区的问题无人解答,想给回答一下,没想到竟然无权回答,呵呵... ... 有什么好的学习方法用来学习对硬件进行编程 关于三层开发的一个很简单的问题..... 求Indy最新版本
uses Unit2;procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;//--------------------unit2.pas
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.MainForm.Show;
end;
...
implementation
uses Unit2;procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;//--------------------unit2.pas
Unit Unit2
...
implementation
uses Unit1;procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
end;
哈哈~
死寂啦!!!!