procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
//在这儿要返回给主窗口处理;
end;
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
//在这儿要返回给主窗口处理;
end;
解决方案 »
- Delphi里有没有类似C里的指针常量的东东?
- FastReport,主从表结构,,怎样才能使打印的表格在每一页都都显示主表Band?
- 一个声明时的小问题啊!请大家帮我看看啊!我是小菜!谢谢大家了啊!!!!!!
- 画圆?
- 救命,关于报表打印问题,全部可用分相赠,绝不食言
- Delphi中判断Combobox中使用者选了哪个项应该用什么?
- 请问哪里有Mybase格式软件下载??急用!急用!急用!急用!
- 求tcp包穿透防火墙例子
- 请问:如何把不同的内容同时向不同的三张数据表写入数据??
- 谁会实现通过自己定制的对话框来编辑自己写的VCL?(十万火急)
- 用 Microsoft Media Player 的ocx 做播放器,哪儿有相关的资料
- 如何隐藏sql数据库存储过程
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;因为CreateParams是用来初始来当一个已经创建后窗口参数记录信息,所以
当你用重载 CreateParams过程中又调用inherited CreateParams(Params);
就会创建两个窗口。而当你在Form1调用以下命令:
AForm: TForm2;
begin
AForm := TForm2.Create(Self);//就会自动调用重载 CreateParams过程
AForm.Show;
end;