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

📄 h_dbct.pas

📁 一个Delphi解释器的例子
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
End;

Function TDBTEXTset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).POPUPMENU:=TPopupMenu(VarToObj(S[0]));
End;
{--------------------}
Function TDBTEXTget_TRANSPARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).TRANSPARENT;
End;

Function TDBTEXTset_TRANSPARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).TRANSPARENT:=S[0];
End;
{--------------------}
Function TDBTEXTget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).SHOWHINT;
End;

Function TDBTEXTset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TDBTEXTget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).VISIBLE;
End;

Function TDBTEXTset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).VISIBLE:=S[0];
End;
{--------------------}
Function TDBTEXTget_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).WORDWRAP;
End;

Function TDBTEXTset_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).WORDWRAP:=S[0];
End;
{--------------------}
function myTDBCHECKBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBCHECKBOX(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBCHECKBOXget_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).CHECKED;
End;

Function TDBCHECKBOXset_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).CHECKED:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBCHECKBOX(slf).FIELD);
End;

{--------------------}
Function TDBCHECKBOXget_STATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).STATE;
End;

Function TDBCHECKBOXset_STATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).STATE:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).ALIGNMENT;
End;

Function TDBCHECKBOXset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_ALLOWGRAYED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).ALLOWGRAYED;
End;

Function TDBCHECKBOXset_ALLOWGRAYED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).ALLOWGRAYED:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).CAPTION;
End;

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

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

Function TDBCHECKBOXset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).CTL3D:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).DATAFIELD;
End;

Function TDBCHECKBOXset_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).DATAFIELD:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBCHECKBOX(slf).DATASOURCE);
End;

Function TDBCHECKBOXset_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).DATASOURCE:=TDataSource(VarToObj(S[0]));
End;
{--------------------}
Function TDBCHECKBOXget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).DRAGCURSOR;
End;

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

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

Function TDBCHECKBOXset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).ENABLED:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBCHECKBOX(slf).FONT);
End;

Function TDBCHECKBOXset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).FONT:=TFont(VarToObj(S[0]));
End;
{--------------------}
Function TDBCHECKBOXget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).PARENTCOLOR;
End;

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

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

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

Function TDBCHECKBOXset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTovAR(TDBCHECKBOX(slf).POPUPMENU);
End;

Function TDBCHECKBOXset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).POPUPMENU:=TPopupMenu(VarToObj(S[0]));
End;
{--------------------}
Function TDBCHECKBOXget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).READONLY;
End;

Function TDBCHECKBOXset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).READONLY:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).SHOWHINT;
End;

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

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

Function TDBCHECKBOXset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).TABSTOP:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_VALUECHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).VALUECHECKED;
End;

Function TDBCHECKBOXset_VALUECHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).VALUECHECKED:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_VALUEUNCHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).VALUEUNCHECKED;
End;

Function TDBCHECKBOXset_VALUEUNCHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).VALUEUNCHECKED:=S[0];
End;
{--------------------}
Function TDBCHECKBOXget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCHECKBOX(slf).VISIBLE;
End;

Function TDBCHECKBOXset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCHECKBOX(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBCOMBOBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBCOMBOBOX(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBCOMBOBOXget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBCOMBOBOX(slf).FIELD);
End;

{--------------------}
Function TDBCOMBOBOXget_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).TEXT;
End;

Function TDBCOMBOBOXset_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).TEXT:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).STYLE;
End;

Function TDBCOMBOBOXset_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).STYLE:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).COLOR;
End;

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

Function TDBCOMBOBOXset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).CTL3D:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).DATAFIELD;
End;

Function TDBCOMBOBOXset_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).DATAFIELD:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBCOMBOBOX(slf).DATASOURCE);
End;

Function TDBCOMBOBOXset_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).DATASOURCE:=TDataSource(VarToObj(S[0]));
End;
{--------------------}
Function TDBCOMBOBOXget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).DRAGMODE;
End;

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

Function TDBCOMBOBOXset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_DROPDOWNCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).DROPDOWNCOUNT;
12345

⌨️ 快捷键说明

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