窗口弹出问题，请高手解答(100)

Q

qwert8008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #1

我想form1打开的同时，弹出form2,下面这段代码老出错，请指正，谢谢unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginform2.showmodal;end;end.

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #2

你要先创建Form2,工程处这样就不会错了program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, Form1); Application.Run;end.

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #3

可能没有在TForm1.FormCreate之前创建。 form2 := Tform2.Create(Nil); form2.showmodal;

 

F

foam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #4

procedure TForm1.FormShow(Sender: TObject);beginform2.showmodal;end;

 

Q

qwert8008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #5

如果我想form2每10秒钟显示一次。停留5秒钟，再间隔10秒钟出现一次，停留5分钟。。。我应该怎么写，Ttimer or sleep????请高手指点

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #6

这种需求有意义吗？不是不可为，实在是BT的需求或想法。

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-28

• #7

form2.timer1，经过5s后，自动关闭释放该界面。10s后,form1再次创建form2。

 

逍

逍遥小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-04

• #8

form1里的timer里创建form2并将timer false，form2的create里timer true 并timer里结束form2之前打开form1的timer