两个窗体问题

Question

1.Application.ShowMainForm:=false;
2.
在你的FORM中重载一个函数就行
protected
    procedure CreateParams(var Params: TCreateParams); override;
  publicprocedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.RES}begin
  Application.Initialize;
  application.ShowMainForm :=false;//这句是隐藏窗体
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 2

1.application.ShowMainForm :=false;//
2.setwindowpos(Self.Handle,HWND_TOPMOST,Self.left,Self.Top,Self.Width,Self.Height,
SWP_SHOWWINDOW);

Answer 3

谢谢各位，不过
除了wr960204(武稀松)的
setwindowpos(Self.Handle,HWND_TOPMOST,Self.left,Self.Top,Self.Width,Self.Height,
SWP_SHOWWINDOW); 
能把窗体始终成为最顶层窗体外，其他几位的方法都不起作用哦，就算这个方法，也不能阻止用户使用我的窗体以外程序，其他程序窗体虽然被我的程序窗体挡住，但还是可以激活和使用。我的目的是让我的窗体成为唯一能被使用的窗体。
----------------------------------------------------------------
application.ShowMainForm :=false;在我的程序里怎么没有一点作用
--------------------------------------------------------------
protected
    procedure CreateParams(var Params: TCreateParams); override;
  publicprocedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;没作用

Answer 4

我的系统是 Win2000pro中文版，Delphi6

Answer 5

 如果你真的 是想让你的窗体成为唯一能被使用的窗体， 那么  你还是kill 掉 explorer 然后运行你的程序好了，  98 下，运行msconfig ,改成  explorer = your application 呵呵    

Answer 6

begin
  Application.Initialize;
  application.ShowMainForm := false;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end. 你试一下吧