将Word嵌入Delphi中

最新推荐文章于 2025-08-12 13:35:59 发布

原创

最新推荐文章于 2025-08-12 13:35:59 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #microsoft #button #integer #forms #windows

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

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 }