如何新建autocad2000,通过olecontainer!谁有详细资料可以加分！

fupingtiger 2003-10-27 06:02:15

如题！！

...全文

69 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

tyh423 2003-11-11

打赏
举报

回复

直接双击就可以了啊！
你是不是想问怎么通过ole调用cad来制图？

工作要求，需要在程序中展示Excel文件的数据，但是不能显示出菜单栏、工具栏，只需要展示数据。看似简单的一个要求，却着实费了不少功夫，网上大多的资料都是office2003的版本适用，2007及以上的版本无法隐藏菜单栏和工具栏。经过笔者搜罗了多方资料，终于成功实现了功能，本着资源共享的精神，跟大家一起分享。 1.解决oleContainer，失去焦点后无法再编辑的问题 2.主要是解决office隐藏菜单栏和工具栏的问题，2003版本和2007及以上版本通用

Delphi的Word处理，处理嵌入问题、Office2003版本使用Olecontainer出现不可编辑问题，用Setfocus方法就可以了。

Delphi中使用Olecontainer打开Word文档后，并实现打印功能

unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1;

nit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function get_th(i:integer):string; var s:string; begin s:='一二三四五六七八九十十一十二十三'; s:=s+' 十四十五十六十七十八十九二十二十一二十二二十三二十四二十五二十六二十七二十八二十九三十 '; result:=(trim(copy(s,i*6+1,6))); end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章