寻找一个能显示CAD图纸的DELPHI控件

Question

这是我利用控件作的显示CAD图形的一部分代码，控件下载地址在你的那个提问里面。
procedure TchaForm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
var netpath         : string;
begin
  netpath := dm.chaquery.fieldbyname('path').asstring;
  if netpath <> '' then
    begin
      try
        dwgprev.dwgfilename := netpath;
        dwgprev.visible := true;
      except
        if
          application.MessageBox(pchar('对不起,您所进的用户权限不够，无法预览！请找管理员联系.'),
          '提示', mb_ok) <> idok then
          raise;
      end;
    end
  else
    begin
      showmessage('对不起,您没有提供文件的存放路径.');
      dwgprev.visible := false;
    end;
end;

Answer 1

老马兄：
我到你的主页里看了，你的显示CAD图纸的那个active控件显示出来的图纸效果不太好，
几乎看不清，能够与你讨论一下吗？我的OICQ是：35628594 

Answer 2

雪茹兄：
    我在你说的网页上下了GIF/CAD栏的那个控件和说明书，但看了说明书很糊涂，
好象与控件根本对不上，能够指点指点吗？

Answer 3

其实那个控件用来预览还行，图象不要太大了，跟AUTOCAD里面打开文件预览那样就行，为了看清楚还得打开AUTOCAD。

Answer 4

各位大师，难道真的就没有能够显示CAD图纸的控件了吗？DXF或DWG格式都行