Delphi的弹出窗体问题

[daigua1987]

系统是一个主界面，加两个Page界面，再一个page里面点击按钮，弹出一个窗体用于新增数据，用什么方案，可以让弹出窗体绑定再子界面上，且还有阴影和圆角的效果

我测试的方案

procedure TFrame2.Button1Click(Sender: TObject);
var f:TForm4;
begin
  f := TForm4.Create(self);
  f.Name:='U2';
  f.ParentWindow:=Self.Handle;
  f.Show;
end;

 这样弹出的窗体是绑定到了子界面上，但是阴影效果没有了，

如果用ShowModal，主界面就全部无法操作了，还不能绑定到子界面里面

 

Form4我改成fsMDIForm 还是不行，Page里面是一个TFrame,Form4是绑定在TFrame里面的

我要的是这样的效果，周边是又阴影的，达到一个悬浮的一个效果

 

 

[daigua1987]

@日立奔腾浪潮微软松下联想 用了ParentWindow属性后，阴影效果就没有了

[daigua1987]

@日立奔腾浪潮微软松下联想 改成fsMDIForm类型的 还是不行

[日立奔腾浪潮微软松下联想]

风格设置成MDI子窗体就可以了

[daigua1987]

@BlueStorm 谢谢回复，这方案我后面测试一下，我现在用一个带阴影的panel来实现的

[BlueStorm]

一个Form, 只要它有ParentWindow, 就不可能有阴影效果.
应该换一个方案, 改用MDIForm + MDIChild Form方案, 不使用frame,
PageControl改为TabControl, 自己写代码用它来控制MDIChild Form, 例如把哪个Form显示在最前面, 是否最大化等,.

[CSDN-Ada助手]

您的问题已经帮您同步至问答, 链接: https://ask.csdn.net/questions/8100946, 请您保持关注, 如果回答有帮助解决此问题, 麻烦您动动小手给相关的回答点赞, Ada会在评论区为您更新结题状态