重栽createparams函数。这样：
 
unit   Unit2;
 
interface
 
uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs;
 
type
    TForm2   =   class(TForm)
    private
        {   Private   declarations   }
        procedure   CreateParams(var   Params:   TCreateParams);   override;
    public
        {   Public   declarations   }
    end;
 
var
    Form2:   TForm2;
 
implementation
 
{$R   *.dfm}
 
procedure   TForm2.CreateParams(var   Params:   TCreateParams);
begin
    inherited;
    Params.WndParent:=   0;
end;
 
end.
 
设置form2.FormStyle:=fsStayOnTop;