将Word嵌入Delphi中

最新推荐文章于 2012-01-15 02:53:57 发布

赛志工作室

最新推荐文章于 2012-01-15 02:53:57 发布

阅读量1k

点赞数

分类专栏： Delphi资料文章标签： delphi microsoft button integer forms windows

本文链接：https://blog.youkuaiyun.com/kingup/article/details/6160589

版权

这个博客介绍了如何在Delphi应用程序中使用OleVariant和CreateOLEObject创建一个Word实例，并打开一个名为'test.doc'的文档。通过设置控件的ParentWindow属性，实现了将Word窗口嵌入到Delphi的TPanel中，并调整了Word窗口的大小以适应面板的尺寸。此外，还展示了如何找到并设置Word窗口的样式，以便在Delphi界面上无缝集成。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,Comobj;
type
TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Panel1Resize(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
    FComApp:OleVariant;
    gWaveHwnd:Hwnd;
public
    { Public declarations }
    procedure SetParentWindow(pParent: TWinControl);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
Word : Variant;
begin
FComApp := CreateOLEObject('Word.Application');
FComApp.Docume

最低0.47元/天解锁文章