如何把ExcelApplication1 或是CreateOleObject( 'Excel.Application' ) 打开的EXCEL 放到我自已的窗体容器中。

Question

如题。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
RvHandle : hWnd;
begin
RvHandle := FindWindow(nil,pchar('Microsoft Excel - 123.xls') );
windows.setparent(RvHandle,Panel1.Handle);
ShowWindow(RvHandle, SW_MAXIMIZE );
end;

Answer 2

不行，代码如下.
procedure TForm1.Button1Click(Sender: TObject);
var
  RvHandle : hWnd;
  ExcelApp: Variant;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );
  ExcelApp.Visible := True;
  ExcelApp.Caption := '应用程序调用 Microsoft Excel';
  ExcelApp.WorkBooks.Add;
  RvHandle := FindWindow(nil,pchar('Microsoft Excel - 123.xls') );
  windows.setparent(RvHandle,Panel1.Handle);
  ShowWindow(RvHandle, SW_MAXIMIZE );

Answer 3

大爷，RvHandle := FindWindow(nil,pchar('Microsoft Excel - 123.xls') );是我举的例子，你要换成你的上面ExcelApp的Caption啊