procedure TForm1.Button1Click(Sender: TObject);
var
wordHandle:Hwnd;
begin
wordHandle:=FindWindow(nil,Pchar('Word的标题'));
if wordHandle<>0 then
windows.SetParent(wordHandle,Panel1.Handle);
end;
wordHandle最好用类名和标题一块判断.
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self.PageControl1) do
begin
Dock(Self.TabSheet1,Self.TabSheet1.ClientRect);
Show;
end;
end;