On Tuesday 13 October 2015 05:19:03 liug2 wrote: > > procedure tmainfo.click(const sender: TObject); > > var psexec:TPSScript; > > begin > > > > psexec:= TPSScript.Create(classes.TComponent(SELF)) > > end; > > tmainfo does not inherit from "classes.TComponent" but from "mclasses.TComponent". You probably need to change the Pascal Script sources, add "mclasses" after "classes" in "uses", same as Zeoslib did. Or use "psexec:= TPSScript.Create(nil);" and free psexec in tmainfo.destroy().
Martin ------------------------------------------------------------------------------ _______________________________________________ mseide-msegui-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
