unit TestDLL;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton;type
TForm1 = class(TForm)
RzBitBtn1: TRzBitBtn;
RzBitBtn2: TRzBitBtn;
procedure RzBitBtn1Click(Sender: TObject);
procedure RzBitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;procedure ShowDLLModalForm(aHandle:Thandle);
stdcall external 'ShowForm.Dll';
procedure ShowDLLForm(aHandle:Thandle);
stdcall external 'ShowForm.Dll';var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
ShowDLLModalForm(Applicaton.Handle);
end;procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
ShowDLLForm(Applicaton.Handle);
end;end.
[Error] TestDLL.pas(35): Undeclared identifier: 'Applicaton'
[Error] TestDLL.pas(35): ')' expected but identifier 'Handle' found
[Error] TestDLL.pas(40): Undeclared identifier: 'Applicaton'
[Error] TestDLL.pas(40): ')' expected but identifier 'Handle' found
[Fatal Error] UseDLL.dpr(5): Could not compile used unit 'TestDLL.pas'
我怎么样也不知道为什么出错,ShowDLLForm(Applicaton.Handle);?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton;type
TForm1 = class(TForm)
RzBitBtn1: TRzBitBtn;
RzBitBtn2: TRzBitBtn;
procedure RzBitBtn1Click(Sender: TObject);
procedure RzBitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;procedure ShowDLLModalForm(aHandle:Thandle);
stdcall external 'ShowForm.Dll';
procedure ShowDLLForm(aHandle:Thandle);
stdcall external 'ShowForm.Dll';var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
ShowDLLModalForm(Applicaton.Handle);
end;procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
ShowDLLForm(Applicaton.Handle);
end;end.
[Error] TestDLL.pas(35): Undeclared identifier: 'Applicaton'
[Error] TestDLL.pas(35): ')' expected but identifier 'Handle' found
[Error] TestDLL.pas(40): Undeclared identifier: 'Applicaton'
[Error] TestDLL.pas(40): ')' expected but identifier 'Handle' found
[Fatal Error] UseDLL.dpr(5): Could not compile used unit 'TestDLL.pas'
我怎么样也不知道为什么出错,ShowDLLForm(Applicaton.Handle);?
解决方案 »
- 关于网络访问的问题????
- delphi中嵌入了b/s网页,其他机器都正常,但是在一台新安装的windows XP机器上打开该页面看到的是一片空白,这是为啥了?
- VC开发的一控件,在delphi中加入到form弹出"database engine error"窗口
- 如何将数据表的字段相同的数据加起来?谢谢!万分火急
- rave 如何才能强制分页,如何才能控制一个BAND 在每一页的页末触发以打印页码?
- sqlite3 3.6.18 xxtea加密移植到sqlite3.7源码中不能加密
- 请教回归算法
- 刚刚学习,请问在Delphi中怎么定义过程或函数
- 各位大虾不知您对里面的ADO问题有何高见?
- 在家知不知道在商场零售打印出的单子是用什么控件写的吗?
- 打印检测 API问题
- 救命,关于Virtual Listview 排序问题
别拼写错误的