一个简单的问题,回答者兼有分,一有答案立刻结贴 我想做一个简单的文本编辑工具,其中涉及到特殊一些特殊字符的输入,和WORD一样可以插入特殊字符。还有就是怎样在程序调用OFFICE的公式编辑器及生成的图片 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtnrs, Menus;type TForm1 = class(TForm) OleContainer1: TOleContainer; MainMenu1: TMainMenu; close1: TMenuItem; procedure close1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.close1Click(Sender: TObject);begin OleContainer1.CreateObjectFromFile('d:\1.doc',false); OleContainer1.DoVerb(0);end;end. 因为直接启动WORD,所以根本不用再考虑公式编辑器的问题 dbExpress Version 2.5 not supported yet 简单问题,马上结贴! 为什么动态创建的LABLE在界面上没有显示? 窗体拖曳问题(难) 在一个form里,不能使用另一个form里的组件吗? 怎样判断combobox中输入的字符是数字? Panel中的窗体如何得到输入焦点???急急急 z_x_b,送分给你 ado-------- 主从表------------ 救急!!!!!!!! 关于DBGRID的问题,很急,请帮忙! 怎么让listbox自动显示水平滚动条? 想考程序员,有事请教
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtnrs, Menus;type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
MainMenu1: TMainMenu;
close1: TMenuItem;
procedure close1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.close1Click(Sender: TObject);
begin
OleContainer1.CreateObjectFromFile('d:\1.doc',false);
OleContainer1.DoVerb(0);end;end.