窗体在修改了Parent属性之后，就无法接受到焦点了，如何解决呢？

Eastunfail 2003-10-10 10:47:57

当
Form2->Parent=Panel1;
之后。Form2的标题总是灰的了，无法接受焦点。怎么解决呢？

...全文

38 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

ljianq 2003-10-11

打赏
举报

是不是你那个panel1禁止了？

ljianq 2003-10-11

打赏
举报

Form2->Parent=Panel1;
这种方式我用过，不过Form2不会再有标题条的，其他操作都正常。

hkbarton 2003-10-10

打赏
举报

不错，厉害，写在一个事件里
procedure TForm1.Button1Click(Sender: TObject);
var
NStyle: LongInt;
begin
Form2:=TForm2.Create(application);
Form2.ParentWindow := Panel1.Handle;
Form2.Show;
NStyle:= GetWindowLong(Form2.Handle, GWL_STYLE);
NStyle:= Nstyle and not WS_CHILD;
SetWindowLong(Form2.Handle, GWL_STYLE, NStyle);
end;

我晕，我门这是在c++版啊，把分都给pankun吧

pankun 2003-10-10

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(application);
Form2.ParentWindow := Panel1.Handle;
Form2.Show;
Form2.Left := 1;
Form2.Top := 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
NStyle: LongInt;
begin
NStyle:= GetWindowLong(Form2.Handle, GWL_STYLE);
NStyle:= Nstyle xor WS_CHILD;
SetWindowLong(Form2.Handle, GWL_STYLE, NStyle);
end;
嘿嘿

hkbarton 2003-10-10