h_forms.pas

一个Delphi解释器的例子

Unit h_forms;
Interface
Uses Delphin, FORMS,Classes,Controls,Menus;
Implementation

function myTFORMCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjTOVar(TFORM(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTFORMARRANGEICONS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).ARRANGEICONS;
End;
{--------------------}
function myTFORMCASCADE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).CASCADE;
End;
{--------------------}
function myTFORMCLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).CLOSE;
End;
{--------------------}
function myTFORMCLOSEQUERY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TFORM(slf).CLOSEQUERY;
End;
{--------------------}
function myTFORMFOCUSCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).FOCUSCONTROL(TWinControl(VarToObj(S[0])));
End;
{--------------------}
function myTFORMHIDE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).HIDE;
End;
{--------------------}
function myTFORMNEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).NEXT;
End;
{--------------------}
function myTFORMPREVIOUS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).PREVIOUS;
End;
{--------------------}
function myTFORMPRINT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).PRINT;
End;
{--------------------}
function myTFORMRELEASE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).RELEASE;
End;
{--------------------}
function myTFORMSHOW(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).SHOW;
End;
{--------------------}
function myTFORMSHOWMODAL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TFORM(slf).SHOWMODAL;
End;
{--------------------}
function myTFORMTILE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFORM(slf).TILE;
End;
{--------------------}
Function TFORMget_ACTIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).ACTIVE;
End;

{--------------------}
Function TFORMget_ACTIVEMDICHILD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TFORM(slf).ACTIVEMDICHILD);
End;

{--------------------}
Function TFORMget_MODALRESULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).MODALRESULT;
End;

Function TFORMset_MODALRESULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).MODALRESULT:=S[0];
End;
{--------------------}
Function TFORMget_MDICHILDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).MDICHILDCOUNT;
End;

Function TFORMget_ACTIVECONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TFORM(slf).ACTIVECONTROL);
End;

Function TFORMset_ACTIVECONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).ACTIVECONTROL:=TWinControl(VarToObj(S[0]));
End;

Function TFORMget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).CAPTION;
End;

Function TFORMset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).CAPTION:=S[0];
End;
{--------------------}
Function TFORMget_CLIENTHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).CLIENTHEIGHT;
End;

Function TFORMset_CLIENTHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).CLIENTHEIGHT:=S[0];
End;
{--------------------}
Function TFORMget_CLIENTWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).CLIENTWIDTH;
End;

Function TFORMset_CLIENTWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).CLIENTWIDTH:=S[0];
End;
{--------------------}
Function TFORMget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).CTL3D;
End;

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

Function TFORMset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).COLOR:=S[0];
End;
{--------------------}
Function TFORMget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).ENABLED;
End;

Function TFORMset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).ENABLED:=S[0];
End;
{--------------------}
Function TFORMget_FORMSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).FORMSTYLE;
End;

Function TFORMset_FORMSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).FORMSTYLE:=S[0];
End;
{--------------------}
Function TFORMget_KEYPREVIEW(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).KEYPREVIEW;
End;

Function TFORMset_KEYPREVIEW(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).KEYPREVIEW:=S[0];
End;
{--------------------}
Function TFORMget_MENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TFORM(slf).MENU);
End;

Function TFORMset_MENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).MENU:=TMainMenu(VarToObj(S[0]));
End;
{--------------------}
Function TFORMget_PIXELSPERINCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFORM(slf).PIXELSPERINCH;
End;

Function TFORMset_PIXELSPERINCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFORM(slf).PIXELSPERINCH:=S[0];
End;
{--------------------}
function myTDATAMODULECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDATAMODULE(slf).CREATE(TComponent(VarToObj(S[0]))));
End;

Function TSCREENget_ACTIVECONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TSCREEN(slf).ACTIVECONTROL);
End;
{--------------------}
Function TSCREENget_ACTIVEFORM(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TSCREEN(slf).ACTIVEFORM);
End;

Function TSCREENget_CURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).CURSOR;
End;

Function TSCREENset_CURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCREEN(slf).CURSOR:=S[0];
End;
{--------------------}
Function TSCREENget_DATAMODULECOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).DATAMODULECOUNT;
End;

Function TSCREENget_FONTS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TSCREEN(slf).FONTS);
End;

{--------------------}
Function TSCREENget_HEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).HEIGHT;
End;

Function TSCREENget_PIXELSPERINCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).PIXELSPERINCH;
End;
{-------------------}
Function TSCREENget_WIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).WIDTH;
End;

{--------------------}
Function TSCREENget_FORMCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCREEN(slf).FORMCOUNT;
End;

{--------------------}
function myTAPPLICATIONBRINGTOFRONT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TAPPLICATION(slf).BRINGTOFRONT;
End;
{--------------------}
{function myTAPPLICATIONCANCELHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TAPPLICATION(slf).CANCELHINT;
End;}
{--------------------}
function myTAPPLICATIONHANDLEEXCEPTION(slf:TObject;var APropName:String;var s:array of variant):variant;