我是这样写的,好象不行。
TShowDLLForm=function(AHandle:THandle;SessionName,DatabaseName:String):Boolean;Stdcall;procedure TFM.PlugInsClick(Sender:TObject);
var
ShowDLLForm:TShowDLLForm;
begin
@ShowDLLForm:=TPlugs(FList[TMenuItem(Sender).Tag]).Call;
ShowDLLForm(Application.Handle,Database1.SessionName,Database1.SessionName);
end;
TShowDLLForm=function(AHandle:THandle;SessionName,DatabaseName:String):Boolean;Stdcall;procedure TFM.PlugInsClick(Sender:TObject);
var
ShowDLLForm:TShowDLLForm;
begin
@ShowDLLForm:=TPlugs(FList[TMenuItem(Sender).Tag]).Call;
ShowDLLForm(Application.Handle,Database1.SessionName,Database1.SessionName);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货