我想知道在TForm中嵌入和控制MS Word的建议方法是什么,就布局而言?目前,我的做法是:(1)将两个TPanel放在TForm上。 alBottom TPanel有一个TButton,alClient TPanel有一个alNone TOleContainer。(2)在TMainForm.FormCreate事件处理程序中设置布局。
问题是MS Word喜欢占用其父窗体的所有空间。只有下面显示的第四种方式似乎给出了可接受的布局。根据试错,似乎需要使用子窗体而不是TPanel来托管TOleContainer。(此外,Windows.SetParent似乎是必要的。) 我想知道是否使用子窗体是正确的方法?
PS:Delphi XE,Word 2010,Windows 7
PS:与“托管外部应用程序”相关的网页: Binh Ly's site Deborah's site
问题是MS Word喜欢占用其父窗体的所有空间。只有下面显示的第四种方式似乎给出了可接受的布局。根据试错,似乎需要使用子窗体而不是TPanel来托管TOleContainer。(此外,Windows.SetParent似乎是必要的。) 我想知道是否使用子窗体是正确的方法?
PS:Delphi XE,Word 2010,Windows 7
PS:与“托管外部应用程序”相关的网页: Binh Ly's site Deborah's site
PS:与“面板中的表单(子表单)”相关的网页:
Delphi - OleContainer - PowerPoint - AutoPlay
如何创建一个包含多个“子”窗体的Delphi窗体,这些窗体可以移动/调整大小并显示已激活状态
示例代码
unit uMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtnrs, ExtCtrls, StdCtrls;
type
TMainForm = class(TForm)
PanelOle: TPanel;
PanelBtn: TPanel;
OleContainer1: TOleContainer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
var
OleForm: TForm;
begin
////
//// 1
////
// OleContainer1.Parent := PanelOle;
// OleContainer1.Align := alClient;
//
////
//// 2
////
// Windows.SetParent(OleContainer1.Handle, PanelOle.Handle);
// OleContainer1.Align := alClient;
//
////
//// 3
////
// OleForm := TForm.Create(Self);
// OleForm.Parent := PanelOle;
// OleForm.Align := alClient;
// OleForm.Visible := True;
// OleContainer1.Parent := OleForm;
// OleContainer1.Align := alClient;
//
////
//// 4 Works!
////
// OleForm := TForm.Create(Self);
// Windows.SetParent(OleForm.Handle, PanelOle.Handle);
// OleForm.Align := alClient;
// OleForm.Visible := True;
// OleContainer1.Parent := OleForm;
// OleContainer1.Align := alClient;
//
////
//// 5
////
// OleForm := TForm.Create(Self);
// OleForm.Parent := PanelOle;
// OleForm.Align := alClient;
// OleForm.Visible := True;
// Windows.SetParent(OleContainer1.Handle,OleForm.Handle);
// OleContainer1.Align := alClient;
//
////
//// 6
////
// OleForm := TForm.Create(Self);
// Windows.SetParent(OleForm.Handle, PanelOle.Handle);
// OleForm.Align := alClient;
// OleForm.Visible := True;
// Windows.SetParent(OleContainer1.Handle,OleForm.Handle);
// OleContainer1.Align := alClient;
end;
procedure TMainForm.Button1Click(Sender: TObject);
var
// Declare the item to be a generic OleVariant to force late binding
Ds: OleVariant;
D: OleVariant;
begin
OleContainer1.CreateObjectFromFile('sample.docx', False);
OleContainer1.Run;
OleContainer1.AutoActivate := aaManual;
OleContainer1.DoVerb(ovShow); // not in FormCreate, in or after FormShow
Ds := OleContainer1.OleObject.Application.Documents;
Caption := IntToStr(Ds.Count);
end;
end.