uses
SysUtils,
ActnList,
Classes;
procedure PowerTest(NameT:TActionlist);stdcall;
var
i:integer;
begin
for i:=0 to NameT.ActionCount -1 do
begin
TAction(NameT.Actions[i]).Visible :=false;
end;
end;
exports
PowerTest;
为什么总是出现Invalid class typecast错误呀
请各位高手指点一下呀,该怎么才能解决呀
SysUtils,
ActnList,
Classes;
procedure PowerTest(NameT:TActionlist);stdcall;
var
i:integer;
begin
for i:=0 to NameT.ActionCount -1 do
begin
TAction(NameT.Actions[i]).Visible :=false;
end;
end;
exports
PowerTest;
为什么总是出现Invalid class typecast错误呀
请各位高手指点一下呀,该怎么才能解决呀
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货