如何调用窗体2????????????(10分)

  • 主题发起人 主题发起人 cqszczt
  • 开始时间 开始时间
C

cqszczt

Unregistered / Unconfirmed
GUEST, unregistred user!
我是刚开始接触Delphi的新手,提出一个如下的基础问题:
我在单元的实现部分(Implementation)声明了uses unit2,并建立了如下代码:
procedure TForm1.bitbtn1click(Sender:tobject);
begin
Form2.ShowModal;
end;
但编译后却无法调用窗体2
不知道朋友们是否愿意帮助我回答这样的基础问题!
 
form2创建了吗?
 
当然要创建Form2l了哟!
 
我在线等待回答!!!!!!!!!!
 
首先看Form2创建了没有:
if not assigned(Form2) then
Form2:=tForm2.create(application);
Form2.ShowModal;
//如果Form2的模式是MDI的则用Form2.Show;
 
在delphi运行菜单project中options
设置其FORMS项目 将form2从Auto-Create Form 中选到右边
Auto-Create Form 列表中只留你的主窗口form1,
这样
procedure TForm1.bitbtn1click(Sender:tobject);
begin
form2 := Tform2.create(Application);
try
Form2.ShowModal;
finally
form2.free;
end;
end;

 
同意楼上的
 
大家都和你说这么清楚了,你明白了吗?没有你可以把不能调用的报错写出来,大家帮你看看
 
非常感谢大家的回答!
我再试试,然后给每人加分!
 
我把步骤及代码写出来,让朋友们分析分析原因:
第一步:
打开Delphi7,已经自动创建了Form1,点击File->save->All,quanb 全部保存。
第二步:
点击Project->add new project;出现new Items对话框,在new选项卡里选择Application,出现了Form2;
第三步:
运行菜单project中options
设置其FORMS项目 将form2从Auto-Create Form 中选到右边(Auto-Create Form 可没有了任豆豆朋友说的FORM1);
第四步:
在form1里放置组件Bitbtn1,
在Object Inspector里的选事件卡Bitbtn1的OnClick右边双击进入代码窗口,按以上朋友意见
在单元1里设置代码:
form2 := Tform2.create(Application);
try
Form2.ShowModal;
finally
form2.free;
第5步:
编译时出现“error”消息窗口,内容为“The FormClick method referenced by
Form1.OnClickdo
es not exist.Remove the reference?"
第6步:我该怎么办????????
第7步:我把两单元的代码复制来给大家:

单元1:
————————————————————————————————
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
uses
Unit2
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2 := Tform2.create(Application);
try
Form2.ShowModal;
finally
form2.free;
end;

end.

单元2:
——————————————————————————————
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
implementation
{$R *.dfm}
end.

我的疑虑:
1、新窗口创建方法不对?
2、是否要在单元2里也作什么设置?
3、我的Delphi软件有问题?
 
我又在线等待了!!!!!!!!!!!!!!!
 
第二步:
点击file->new-> form;出现了Form2;
其他同上!
 
行了!
谢谢以上朋友!
特别鸣谢Liwd,zswenyun,任豆豆朋友!
都给你们点分,小意思,表示心意!
 
后退
顶部