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

📄 h_exct.pas

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

Function TBEVELset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).ALIGN:=S[0];
End;
{--------------------}
Function TBEVELget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBEVEL(slf).PARENTSHOWHINT;
End;

Function TBEVELset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TBEVELget_SHAPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBEVEL(slf).SHAPE;
End;

Function TBEVELset_SHAPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).SHAPE:=S[0];
End;
{--------------------}
Function TBEVELget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBEVEL(slf).SHOWHINT;
End;

Function TBEVELset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TBEVELget_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBEVEL(slf).STYLE;
End;

Function TBEVELset_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).STYLE:=S[0];
End;
{--------------------}
Function TBEVELget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBEVEL(slf).VISIBLE;
End;

Function TBEVELset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBEVEL(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTTIMERCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TTIMER(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TTIMERget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTIMER(slf).ENABLED;
End;

Function TTIMERset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTIMER(slf).ENABLED:=S[0];
End;
{--------------------}
Function TTIMERget_INTERVAL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTIMER(slf).INTERVAL;
End;

Function TTIMERset_INTERVAL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTIMER(slf).INTERVAL:=S[0];
End;
{--------------------}
function myTCUSTOMPANELCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TCUSTOMPANEL(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TPANELget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).ALIGN;
End;

Function TPANELset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).ALIGN:=S[0];
End;
{--------------------}
Function TPANELget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).ALIGNMENT;
End;

Function TPANELset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TPANELget_BEVELINNER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).BEVELINNER;
End;

Function TPANELset_BEVELINNER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).BEVELINNER:=S[0];
End;
{--------------------}
Function TPANELget_BEVELOUTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).BEVELOUTER;
End;

Function TPANELset_BEVELOUTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).BEVELOUTER:=S[0];
End;
{--------------------}
Function TPANELget_BEVELWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).BEVELWIDTH;
End;

Function TPANELset_BEVELWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).BEVELWIDTH:=S[0];
End;
{--------------------}
Function TPANELget_BORDERWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).BORDERWIDTH;
End;

Function TPANELset_BORDERWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).BORDERWIDTH:=S[0];
End;
{--------------------}
Function TPANELget_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).BORDERSTYLE;
End;

Function TPANELset_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).BORDERSTYLE:=S[0];
End;
{--------------------}
Function TPANELget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).DRAGCURSOR;
End;

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

Function TPANELset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TPANELget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).ENABLED;
End;

Function TPANELset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).ENABLED:=S[0];
End;
{--------------------}
Function TPANELget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).CAPTION;
End;

Function TPANELset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).CAPTION:=S[0];
End;
{--------------------}
Function TPANELget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).COLOR;
End;

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

Function TPANELset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).CTL3D:=S[0];
End;
{--------------------}
Function TPANELget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TPANEL(slf).FONT);
End;

Function TPANELset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function TPANELget_LOCKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).LOCKED;
End;

Function TPANELset_LOCKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).LOCKED:=S[0];
End;
{--------------------}
Function TPANELget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPANEL(slf).PARENTCOLOR;
End;

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

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

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

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

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

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

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

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

Function TPANELset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPANEL(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTPAGECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TPAGE(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TPAGEget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAGE(slf).CAPTION;
End;

Function TPAGEset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAGE(slf).CAPTION:=S[0];
End;
{--------------------}
Function TPAGEget_HEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAGE(slf).HEIGHT;
End;

Function TPAGEset_HEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAGE(slf).HEIGHT:=S[0];
End;
{--------------------}
Function TPAGEget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAGE(slf).TABORDER;
End;

Function TPAGEset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAGE(slf).TABORDER:=S[0];
End;
{--------------------}
Function TPAGEget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAGE(slf).VISIBLE;
End;

Function TPAGEset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
1234

⌨️ 快捷键说明

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