窗体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;

View Code