本文整理自网络,侵删。
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 xe ioutils tpath(结构体) 的方法与属性
更多相关阅读请进入《Delphi》频道 >>