Delphi中，在Form1里边嵌套一个Form2，点击Form2后Form1未置顶

最新推荐文章于 2022-09-08 15:16:50 发布

zhuzhuyule

最新推荐文章于 2022-09-08 15:16:50 发布

阅读量2.3k

点赞数 1

分类专栏： Delphi 总结文章标签： delphi chrome

本文链接：https://blog.csdn.net/zhuzhuyule/article/details/23949537

版权

在使用Delphi开发时，将Form2嵌套在Form1中，发现点击Form2后Form1未能置顶。原因是Form2拦截了消息并未传递给其父窗口Form1。解决方法是正确设置Form2的ParentWindow属性，将其设为Panel1.Handle，以确保消息正确传递。

摘要由CSDN通过智能技术生成

最近在公司程序里边替换旧的IE控件，Chrome是人家写好的，直接放在了Form里边，值给我提供了几个简单接口，嵌套的程序里边后就出现了啊上述问题：在Form1里边嵌套一个Form2，点击Form2后Form1未置顶。

这个是因为Form2把消息都拦截了，没有发送给它的父窗口Form1。一般情况下，给Form2设置父窗口为：

unit DemoForm1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Unit2, cefvcl;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    Panel1: TPanel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    fshowchrome: TForm2;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  fshowchrome.Load(edt1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //fshowchrome是全局的
  fshowchrome := TForm2.Create(Self);
  fshowchrome.Align := alClient;
  fshowchrome.BorderStyle := bsNone;

  Windows.SetPa