窗体Form的FormStyle属性设置为fsStayOnTop时属性设置不起作用问题探讨。

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;