最近在公司程序里边替换旧的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