Unit1中:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;type
TForm1 = class(TForm) procedure Button7Click(Sender: TObject);implementationuses Unit2 ;
procedure TForm1.Button7Click(Sender: TObject);
begin
TForm2.show;
end;end.Unit2中:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ,Unit1 ;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation {$R *.dfm}end.编译时总是报错误:
Could not compile used unit 'Unit1.pas', 不知道是什么问题,请知道的童鞋帮帮忙 谢谢
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;type
TForm1 = class(TForm) procedure Button7Click(Sender: TObject);implementationuses Unit2 ;
procedure TForm1.Button7Click(Sender: TObject);
begin
TForm2.show;
end;end.Unit2中:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ,Unit1 ;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation {$R *.dfm}end.编译时总是报错误:
Could not compile used unit 'Unit1.pas', 不知道是什么问题,请知道的童鞋帮帮忙 谢谢
解决方案 »
- 怎么读取directorylistbox、drivecombobox、filelistbox里的一个文件
- 程序调试时,出现delphi32.exe - bordbk70.dll internal error pro-2794,是怎么回事?
- 怎么用ADOQuery或者ADODataSet来动态地得到数据,用于报表打印
- 关于DELPHI皮肤问题
- 怎样才能实现连续打印?一页打一条记录,连着打.....
- 谁来告诉我TFrame的详细用法
- 救命!我要把繁体数据恢复成简体的,求繁体字符范围!
- hooer来拿分吧。
- 求助:delphi7调用java写的webservice(axis2)出现的问题
- 我想让一个进度条与一个batchmove相联系,使bctchmove执行时显示进度条进度,怎么作呢?
- 帮忙修改该程序 实现自动删除批处理文件中的重复项中的一项
- delphi6+access数据库 ado 香港那边用繁体的人说打不开?
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.show;
end;TForm2是类,Form2才是对象
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;type
TForm1 = class(TForm) procedure Button7Click(Sender: TObject);implementationuses Unit2 ;
procedure TForm1.Button7Click(Sender: TObject);
begin
TForm2.show;
end;end.
-----------------------------------------------------unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
Button7: TButton;
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementationuses Unit2 ;{$R *.dfm}
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.show;
end;end.