2008年8月27日
深度解析工业图形专家（VG）在delphi中的使用
摘要： 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 ) 阅读全文
posted @ 2008-08-27 14:21 VG 阅读(1212) 评论(0) 推荐(1)