摘要:
procedure TForm1.Button1Click(Sender: TObject);
var
uu : IUnit;
ret : Integer;
begin
uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );
ret := uu.GetPropertyValue( 'Value' );
//或者也可以用
//ret := vgctrl1.vg.Execute('return '+TButton(sender).Caption+'.Value');
ShowMessage( IntToStr( ret ) );
end;
procedure TForm1.Button3Click(Sender: TObject);
var
uu : IUnit;
ret : Boolean;
begin
uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption ) 阅读全文