如何在Form创建时，Show之前就将窗体隐藏？开双帖加分！

Question

1、调用窗口时使用ShowModal。
2、如何实现隐藏调用窗体，不要闪的那种，谢谢各位！

Answer 1

分都给我哦：
type
  TForm2 = class(TForm)
  private
  protected
    procedure CMShowingchanged(var Message: TMessage);
      message CM_SHOWINGCHANGED;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}{ TForm2 }procedure TForm2.CMShowingchanged(var Message: TMessage);
begin
end;调用：procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
    ShowModal;
end;

Answer 2

要求必须将Form2里面Show()的代码执行完。

Answer 3

你是指OnShow？你可以把OnShow的代码放到Create去呀。

Answer 4

不行，还要对界面控件做操作，有些代码在CREATE里面执行不了。

Answer 5

那就把代码写到过程里，在create 之后调用这个过程，然后再show出来。

Answer 6

Form创建时窗体本来就不可见，只有调用Show或ShowModal才会显示，
你又隐藏又调用，不是有些矛盾吗？
见议你如果需要控件窗体的隐藏不要把控制语句定在被调用窗体的OnShow事件中，
可以放在别处控制，如linzhengqun如说。

Answer 7

像类似于Application.ProcessMessages;这样的代码就无法执行了。就算不把他放到OnShow事件中，而是用个定时器启动。

Answer 8

没有看明白是什么意思？  Form.visible := false; //隐藏窗体

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;procedure TForm2.FormCreate(Sender: TObject);
begin
  i:=0;
  Form2.BorderStyle:=bsNone;
  Form2.Width:=0;
  Form2.Height:=0;
end;procedure TForm2.FormShow(Sender: TObject);
begin
   i:=3;
end;-------------
先让Form2创建的时候长宽全部为零,等你后面真的需要看到它的时候再把它恢复过来

Answer 10

隐藏调用窗体什么意思,你要调用什么东西,使用data module不可以吗？