unit1.pas

电气控制仿真软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, vgctrl40_TLB, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    vgctrl1: Tvgctrl;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure vgctrl1Click(Sender: TObject);
  private
    UseDelphiControl : Boolean;
    procedure CMDialogKey( var Message : TCMDialogKey );message CM_DIALOGKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CallDelphiEditChange( SenderName : PChar; s : PChar ); stdcall;
begin
  Form1.Edit1.Text := StrPas( s );
end;

procedure CallDelphiRadioButtonClick( SenderName : PChar; ItemIndex : Integer ); stdcall;
begin
  Form1.RadioGroup1.ItemIndex := ItemIndex;
end;

procedure CallDelphiCheckBoxClick( SenderName : PChar; Checked : LongBool ); stdcall;
begin
  Form1.CheckBox1.Checked := Checked;
end;

procedure TForm1.CMDialogKey( var Message : TCMDialogKey );
begin
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  vgctrl1.AddFunction( 'CallDelphiEditChange', '44', 48, Longint( @CallDelphiEditChange ) );
  vgctrl1.AddFunction( 'CallDelphiRadioButtonClick', '41', 48, Longint( @CallDelphiRadioButtonClick ) );
  vgctrl1.AddFunction( 'CallDelphiCheckBoxClick', '43', 48, Longint( @CallDelphiCheckBoxClick ) );
  vgctrl1.Run('');
  vgctrl1.LoadFromBuffer( Memo1.Lines.Text );
  UseDelphiControl := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if UseDelphiControl then
    vgctrl1.Execute( '立体编辑框1.Frame.Text="' + Edit1.Text + '"' )
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  if UseDelphiControl then
    vgctrl1.Execute( 'RadioGroup1.ItemIndex=' + IntToStr( RadioGroup1.ItemIndex ) );
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  Sheet1 : ISheet;
  d : IUnit;
begin
  if UseDelphiControl then
  begin
    Sheet1 := ISheet( vgctrl1.ActiveSheet );
    d := IUnit( Sheet1.UnitByName( 'CheckBox2' ) );
    d.SetPropertyValue( 'Checked', CheckBox1.Checked );
  end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  UseDelphiControl := true;
end;

procedure TForm1.vgctrl1Click(Sender: TObject);
begin
  UseDelphiControl := false;
end;

end.