请问一个窗体问题？也许很简单的，但是却不好控制

Question

请问如何让窗体出现后不让他能跑到其他窗体后面，用Showmodel显示的窗体，如果多于两个则弹出的错误对话框将显示在窗体的后面，如何解决?

Answer 1

stayontop,不过多于两个的话，还是有问题啊

Answer 2

帮你顶！
相似问题。
http://expert.csdn.net/Expert/topic/2864/2864875.xml?temp=.5525934

Answer 3

FormStyle := fsStayOnTop;这样不行的,副乡长不是也说了,如果多余两个的话也是不行的,有没有更好的办法呢?

Answer 4

试试这样，应该可以可以的(我是用了近百分才问来的，兄弟你可是赚了。^_^)，先设置你想要置顶的窗体Formstyle:=fsStayOnTop;
然后在unit文件里这样改(这里假设Form1是你想要显示的窗体)。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public    procedure CreateParams(var Params: TCreateParams); override;  end;var
  Form1: TForm1;implementationprocedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.EXStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
  Params.WndParent := GetDesktopWindow; // 重新定义Parent对象句柄,看你的需要了
end;{$R *.dfm}end.