Delphi实现窗体内嵌其他应用程序窗体

在实现细节上需要注意几点:

为了美化程序的嵌入效果,需要隐藏其标题栏
在外部窗体大小变化时,需要内嵌的窗体也随之变化大小
外部程序退出时,内嵌的程序也要退出
下面是例子程序。新建窗体,上面放置一个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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值