⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 h_exct.pas

📁 一个Delphi解释器的例子
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
TPAGE(slf).VISIBLE:=S[0];
End;
{--------------------}
Function TPAGEget_WIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAGE(slf).WIDTH;
End;

Function TPAGEset_WIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAGE(slf).WIDTH:=S[0];
End;
{--------------------}
function myTNOTEBOOKCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TNOTEBOOK(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TNOTEBOOKget_ACTIVEPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).ACTIVEPAGE;
End;

Function TNOTEBOOKset_ACTIVEPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).ACTIVEPAGE:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).ALIGN;
End;

Function TNOTEBOOKset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).ALIGN:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).COLOR;
End;

Function TNOTEBOOKset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).COLOR:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).CTL3D;
End;

Function TNOTEBOOKset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).CTL3D:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).DRAGCURSOR;
End;

Function TNOTEBOOKset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).DRAGMODE;
End;

Function TNOTEBOOKset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TNOTEBOOK(slf).FONT);
End;

Function TNOTEBOOKset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function TNOTEBOOKget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).ENABLED;
End;

Function TNOTEBOOKset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).ENABLED:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_PAGEINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).PAGEINDEX;
End;

Function TNOTEBOOKset_PAGEINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PAGEINDEX:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_PAGES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TNOTEBOOK(slf).PAGES);
End;

Function TNOTEBOOKset_PAGES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PAGES:=TStrings(VO(S[0]));
End;
{--------------------}
Function TNOTEBOOKget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).PARENTCOLOR;
End;

Function TNOTEBOOKset_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PARENTCOLOR:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).PARENTCTL3D;
End;

Function TNOTEBOOKset_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PARENTCTL3D:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).PARENTFONT;
End;

Function TNOTEBOOKset_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PARENTFONT:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).PARENTSHOWHINT;
End;

Function TNOTEBOOKset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TNOTEBOOK(slf).POPUPMENU);
End;

Function TNOTEBOOKset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).POPUPMENU:=TPopupMenu(VO(S[0]));
End;
{--------------------}
Function TNOTEBOOKget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).SHOWHINT;
End;

Function TNOTEBOOKset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).TABORDER;
End;

Function TNOTEBOOKset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).TABORDER:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).TABSTOP;
End;

Function TNOTEBOOKset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).TABSTOP:=S[0];
End;
{--------------------}
Function TNOTEBOOKget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TNOTEBOOK(slf).VISIBLE;
End;

Function TNOTEBOOKset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TNOTEBOOK(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTHEADERCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(THEADER(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
function myTHEADERDESTROY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 THEADER(slf).DESTROY;
End;
{--------------------}
Function THEADERget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).ALIGN;
End;

Function THEADERset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).ALIGN:=S[0];
End;
{--------------------}
Function THEADERget_ALLOWRESIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).ALLOWRESIZE;
End;

Function THEADERset_ALLOWRESIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).ALLOWRESIZE:=S[0];
End;
{--------------------}
Function THEADERget_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).BORDERSTYLE;
End;

Function THEADERset_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).BORDERSTYLE:=S[0];
End;
{--------------------}
Function THEADERget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).ENABLED;
End;

Function THEADERset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).ENABLED:=S[0];
End;
{--------------------}
Function THEADERget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(THEADER(slf).FONT);
End;

Function THEADERset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function THEADERget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).PARENTFONT;
End;

Function THEADERset_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).PARENTFONT:=S[0];
End;
{--------------------}
Function THEADERget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).PARENTSHOWHINT;
End;

Function THEADERset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function THEADERget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(THEADER(slf).POPUPMENU);
End;

Function THEADERset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).POPUPMENU:=TPopupMenu(VO(S[0]));
End;
{--------------------}
Function THEADERget_SECTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(THEADER(slf).SECTIONS);
End;

Function THEADERset_SECTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).SECTIONS:=TStrings(VO(S[0]));
End;
{--------------------}
Function THEADERget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).SHOWHINT;
End;

Function THEADERset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function THEADERget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).TABORDER;
End;

Function THEADERset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).TABORDER:=S[0];
End;
{--------------------}
Function THEADERget_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).TABSTOP;
End;

Function THEADERset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).TABSTOP:=S[0];
End;
{--------------------}
Function THEADERget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := THEADER(slf).VISIBLE;
End;

Function THEADERset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
THEADER(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTCUSTOMRADIOGROUPCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TCUSTOMRADIOGROUP(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TRADIOGROUPget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).ALIGN;
End;

Function TRADIOGROUPset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).ALIGN:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).CAPTION;
End;

Function TRADIOGROUPset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).CAPTION:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -