我把步骤及代码写出来,让朋友们分析分析原因:
第一步:
打开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软件有问题?