delphi6中,添加的form2怎样定义 请教各位,我刚刚接触delphi6.我建立一个form2窗体,上有一个button,想实现鼠标点button,则form1隐藏,form2显示,请教各位,如何实现呢?好象在form1文件的哪里添加form2的定义?谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先建立两个Form,然后Form1中在File->use unit...点Form2即可 unit Unit1;interfaceuses 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;implementationuses unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Self.Hide; with TForm2.Create(nil) do ShowModal;end;end. procedure TForm1.Button1Click(Sender: TObject);begin Self.Hide; Form2.Show;end; 感觉逻辑有问题哦Form2上的按钮,点了Form2显示?????不是已经显示了啊! SQL語句(sql高手進) BLOB 读取的问题 数据源更新问题 delphi中怎样引用gif文件 关于fastreport的问题 想请教高手skinengine如何安装? 最简单的问题,可是我不会,大家帮忙! win2000下的打印机自定义纸张 关于李维先生的《分布式多层应用--电子商务篇》的问题 怎样将DLL程序作成EXE,我试了,用COMPILE和BUILD都不行(运行时HOST APPLICATION要用) 谁能帮我把这段c+builder的代码改为delphi的(日志钩子的) 请问在sql中如何将下列情况中的机号分别列出来
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;implementationuses unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Hide;
with TForm2.Create(nil) do
ShowModal;
end;end.
begin
Self.Hide;
Form2.Show;
end;
Form2上的按钮,点了Form2显示?????
不是已经显示了啊!