在实现细节上需要注意几点:
为了美化程序的嵌入效果,需要隐藏其标题栏
在外部窗体大小变化时,需要内嵌的窗体也随之变化大小
外部程序退出时,内嵌的程序也要退出
下面是例子程序。新建窗体,上面放置一个Panel控件,名为pnlApp,然后按下面代码编写
{在实现细节上需要注意几点:
为了美化程序的嵌入效果,需要隐藏其标题栏
在外部窗体大小变化时,需要内嵌的窗体也随之变化大小
外部程序退出时,内嵌的程序也要退出
下面是例子程序。新建窗体,上面放置一个Panel控件,名为pnlApp,然后按下面代码编写
}
unit frmTestEmbedApp;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
ExtCtrls, RzPanel, Vcl.StdCtrls, Vcl.Buttons,Winapi.TlHelp32;
type
TForm1 = class(TForm)
pnlApp: TRzPanel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hWin: HWND = 0;
implementation
{$R *.dfm}
type
// 存储窗体信息
PProcessWindow = ^TProcessWindow;
TProcessWin