[请求]北京图王的VG控件转X3控件时报错**

newjack

导入成功。

使用的时候，打开一个tbl文件，工具区中并没有显示。

而同样的代码，在别的语言中正常。

lixy

用什么打开tbl文件，什么工具区没有显示？
贴图描述一下

lixy

楼主测试delphi的例子程序给我一下，我不会用

newjack

这是运行时的效果图

newjack

procedure TMainForm.vgctrl1RButtonDown(Sender: TObject; x, y: Double);
var
ASheet : ISheet;
AUnit : IUnit;
begin
ASheet := vgctrl1.ActiveSheet;
AUnit := ASheet.UnitAtPoint( X, Y, nil );
if AUnit<>nil then Dialogs.Showmessage( '您在图形：' + AUnit.Name + ' 上按下了右键！' );
end;

procedure TMainForm.vgctrl1SheetChange(Sender: TObject; const ASheet: ISheet);
begin
     if vgctrl1.ActiveSheet<>nil then
     begin
     vgctrl1.ActiveSheet.SetPropertyValue('cursheet', vgctrl3.ActiveSheet);
     vgctrl2.ActiveSheet.SetPropertyValue('cursheet', vgctrl3.ActiveSheet);
     vgctrl4.ActiveSheet.SetPropertyValue('cursheet', vgctrl3.ActiveSheet);
     vgctrl5.ActiveSheet.SetPropertyValue('cursheet', vgctrl3.ActiveSheet);
     end;
end;

procedure TMainForm.BizFormShow(Sender: TObject);
var
   s:    string;
begin
     s := vgctrl1.Execute( 'return SystemParams.DefaultPath' ).ToString();
     vgctrl1.Run(s+'toolbar.tbl');
     vgctrl2.Run(s+'listview.tbl');
     vgctrl5.Run(s+'statusbar.tbl');
     vgctrl4.Run(s+'propedit.tbl');

     vgctrl3.Design( '' );

     vgctrl1SheetChange(Sender, vgctrl3.ActiveSheet);

     //vgctrl3.LoadFromFile(s+'\..\demo\电力\电气主接线图（500KV）.tbl');

     vgctrl2.Execute('systemparams.GraphDriver=1');
end;

procedure TMainForm.vgctrl3SelectChange(Sender: TObject);
var
   s:string;
begin
     vgctrl4.ActiveSheet.SetPropertyValue('selected', vgctrl3.ActiveSheet.Selection);
     vgctrl1.Execute('OnSelectChange()');
     vgctrl1.Execute('btnUndo.Enable=CurSheet.Owner.CanUndo()');
     vgctrl1.Execute('btnRedo.Enable=CurSheet.Owner.CanRedo()');
     //s := 'SetMsg( 1,"["+str(' + SysUtils.FloatToStr(vgctrl3.ActiveSheet.Selection.Left ) + ',3)+","+ ';
     //s := s+'Str(' + SysUtils.FloatToStr(vgctrl3.ActiveSheet.Selection.Top) + ',3) + "]-[" +';
     //s := s+'str(' + SysUtils.FloatToStr(vgctrl3.ActiveSheet.Selection.Width) + ',3)+","+ ';
     //s := s+'Str(' + SysUtils.FloatToStr(vgctrl3.ActiveSheet.Selection.Height) + ',3) + "]" )';
     //vgctrl4.Execute(s);
end;

procedure TMainForm.BizFormClose(Sender: TObject; var Action: TCloseAction);
begin
    vgctrl2.Execute('systemparams.GraphDriver=0');
end;

procedure TMainForm.vgctrl3MouseMove(Sender: TObject; x, y: Double);
begin
   vgctrl5.Execute('SetMsg( 2,str(' + SysUtils.FloatToStr(x) + ',3)+","+Str(' + SysUtils.FloatToStr(y) + ',3) );DisplayUnit()');
end;
这是测试代码。

lixy

tbl文件我没有。我在delphi里面怎么就一个白框？

newjack

http://www.visual-graph.com/down/index.htm
这里下载一个安装，就有了

demo目录里面很多例子

newjack

你改了我的帖子代码？

改了哪里？没看出来。

对了，刚才我在Delphi6上试，正常的哦

lixy

我测试了，一样效果、
delphi

lixy

代码没变
procedure TMainForm.Button1Click(Sender: TObject);
var
    s:string;
begin
s:='E:X3Importer图王\vgctrl2008vgdat';
vgctrl1.Run(s+'toolbar.tbl');
     vgctrl2.Run(s+'listview.tbl');
     vgctrl3.Run(s+'statusbar.tbl');
     vgctrl4.Run(s+'propedit.tbl');
end;

x3