社区
Delphi
帖子详情
oleContainer的困惑?在线等!马上给分!
lygjohn
2003-10-17 02:32:47
当在窗体中加入oleContainer控件以后,就不能再加入其他(如Edit控件)控件了,为什么?怎么解决?
...全文
71
2
打赏
收藏
oleContainer的困惑?在线等!马上给分!
当在窗体中加入oleContainer控件以后,就不能再加入其他(如Edit控件)控件了,为什么?怎么解决?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lygjohn
2003-10-17
打赏
举报
回复
rongle1980(融乐)同志,来点职业点的货好吗?别到处灌水
rongle1980
2003-10-17
打赏
举报
回复
http://www.qqst.com/film/film.asp?id=superzz1980
[delphi]
Ole
Container
加载Excel文件,屏蔽菜单栏、工具栏
工作要求,需要在程序中展示Excel文件的数据,但是不能显示出菜单栏、工具栏,只需要展示数据。 看似简单的一个要求,却着实费了不少功夫,网上大多的资料都是office2003的版本适用,2007及以上的版本无法隐藏菜单栏和工具栏。经过笔者搜罗了多方资料,终于成功实现了功能,本着资源共享的精神,跟大家一起
分
享。 1.解决
ole
Container
,失去焦点后无法再编辑的问题 2.主要是解决office隐藏菜单栏和工具栏的问题,2003版本和2007及以上版本通用
Delphi的Word处理,处理嵌入问题、不可编辑问题
Delphi的Word处理,处理嵌入问题、Office2003版本使用
Ole
container
出现不可编辑问题,用Setfocus方法就可以了。
delphi_word打印
Delphi中使用
Ole
container
打开Word文档后,并实现打印功能
delphiword编辑器
unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB,
Ole
Ctnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog;
Ole
Container
2: T
Ole
Container
; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox;
Ole
Container
1: T
Ole
Container
; 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):T
ole
Container
; procedure delete_s_
ole
; { Private declarations } public { Public declarations } end; var Form1: TForm1;
用Delphi实现Word文件的预览
nit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB,
Ole
Ctnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog;
Ole
Container
2: T
Ole
Container
; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox;
Ole
Container
1: T
Ole
Container
; 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):T
ole
Container
; 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;
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章