本文整理自网络,侵删。
type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParams);override; //添加过程 end;
procedure TForm2.CreateParams(var Params: TCreateParams);begin inherited CreateParams(Params); Params.WndParent := GetDesktopWindow;end;
相关阅读 >>
Delphi 读取图像文件base64编码加载到image组件显示图片
Delphi文件 fileopen 、fileseek等的用法(看红色字体)
更多相关阅读请进入《Delphi》频道 >>