本文整理自网络,侵删。
procedure CreateParams(var Params: TCreateParams); override;
procedure MainForm.Createparams(var Params: TCreateParams);begin inherited; With Params do begin WndParent := Application.MainForm.Handle; Params.ExStyle := WS_EX_TOPMOST; end;end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>