P
pan_dayu
Unregistered / Unconfirmed
GUEST, unregistred user!
顾名思义,就是要调用DLL中的窗体类PUBLIC语句定义的过程和函数以及方法
比如说
LL中的一个窗体类定义如下:type
pMemList=^TMemList;
TMemList=record
TableName:string;
cnnstr:string;
usrFlag:integer;
issystem:integer;
end;
TFrmCrtMu=class(Tform)
private{}
public{function DynamicMenu(pmenu
MemList,MainMu:Tobject):boolean; procedure GetNextItem(....);
procedure FrmClick(sender:Tobject)}
function ShowMenu(...):integer;export;
implement
($r *.dfm)
procedure FrmClick(sender:Tobject);
begin
....
end;
function ShowMenu(...):integer;
var
MuItem:TMenuItem;
begin
MuItem:=TMenuItem.create(nil);
MuItem.caption:='sdfksdj';
MuItem.onclick:=FrmClick;//运行里这一行报错..请问我应该如何解决这个问题.
end;
但是单独运行窗体则是正确的.请教高手们应该如何处理这个难题,它困犹我N个晚上,想不透呀..以下是我的分析思路:如果把procedure Frmclick() 改为function Frmclick():Tnotifyevent;就能编译成功.但是在菜单项的单击事件中却运行不正常了.可不可以换一种思路去解决问题,比方说EXPORT 对象后使用该对象的方法和PUBLIC定义的过程和函数.THANK YOU VERY BODY!
再次感谢大家来看贴.!!!!!
比如说
LL中的一个窗体类定义如下:type pMemList=^TMemList;
TMemList=record
TableName:string;
cnnstr:string;
usrFlag:integer;
issystem:integer;
end;
TFrmCrtMu=class(Tform)
private{}
public{function DynamicMenu(pmenu
MemList,MainMu:Tobject):boolean; procedure GetNextItem(....);procedure FrmClick(sender:Tobject)}
function ShowMenu(...):integer;export;
implement
($r *.dfm)
procedure FrmClick(sender:Tobject);
begin
....
end;
function ShowMenu(...):integer;
var
MuItem:TMenuItem;
begin
MuItem:=TMenuItem.create(nil);
MuItem.caption:='sdfksdj';
MuItem.onclick:=FrmClick;//运行里这一行报错..请问我应该如何解决这个问题.
end;
但是单独运行窗体则是正确的.请教高手们应该如何处理这个难题,它困犹我N个晚上,想不透呀..以下是我的分析思路:如果把procedure Frmclick() 改为function Frmclick():Tnotifyevent;就能编译成功.但是在菜单项的单击事件中却运行不正常了.可不可以换一种思路去解决问题,比方说EXPORT 对象后使用该对象的方法和PUBLIC定义的过程和函数.THANK YOU VERY BODY!
再次感谢大家来看贴.!!!!!