TMS Scripter importtool的使用

最新推荐文章于 2023-07-16 22:45:44 发布

weixin_30652897

最新推荐文章于 2023-07-16 22:45:44 发布

阅读量175

点赞数

原文链接：http://www.cnblogs.com/wxb-km/p/4869445.html

版权

uses ap_DateUtils; showmessage(dayof(now));

//注册delphi对象或变量 : IDEScripter1 IDEScripter1.AddConstant('Appath',Appath); IDEScripter1.AddObject('memo1',memo1); IDEScripter1.AddObject('dbqry',DBISAMQuery1); IDEScripter1.AddObject('prnt',PrintDBGridEh1); IDEScripter1.AddObject('DBGridEh1',DBGridEh1); IDEScripter1.AddObject('RMReport',RMFormReport1); IDEScripter1.AddComponent(DBISAMQuery1);

SysUtils, Classes, Controls, Graphics, StdCtrls, UniGUIInterfaces, UniGUIClasses, UniGUITypes;

uniMemo

ObjectToVar

procedure TatuniGUIAbstractClassesLibrary.__GetTUniTreeNodeFont(AMachine: TatVirtualMachine); var AResult: variant; begin with AMachine do begin AResult:=string(TUniTreeNode(CurrentObject).Font); ReturnOutputArg(AResult); end; end;

procedure TatuniGUIAbstractClassesLibrary.__SetTUniTreeNodeFont(AMachine: TatVirtualMachine); begin with AMachine do begin TUniTreeNode(CurrentObject).Font:=TUniFont(VarToObject(GetInputArg(0))); end; end;

转载于:https://www.cnblogs.com/wxb-km/p/4869445.html