怎样进入一个新的窗体，通过点击一个按扭(50分)

L

loneboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #1

怎样通过点击一个按扭进入一个新的窗体？

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #2

procedure Form1.Button1Click(Sender: TObject);
Var
Form2: TForm;
Begin
Form2 := TForm.Create(self);

Form2.Show;

Form2.Close;
End;

 

S

Sunny18

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #3

1.可以在点击按钮的事件里调用要进入的新的窗体的show方法(如果新窗体已创建)
...
newform.show;
...
2.如果新窗体还没有创建,则需要先创建再显示.
...
newform:TNewForm;
newform.create(application.handle);
newform.show;
...
记不太住了,不过大致辞是这样的.

 

S

Sunny18

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #4

哦,错了,
该是:newform:=TNewForm.create(application.handle);
对不起哟!

 

Z

Zhengfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #5

procedure TForm7.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm8, Form8);
Form8.ShowModal;
Form8.Free;
end;

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #6

首先在该窗口的user中说明Form2
implementation

uses Form2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=Tform2.Create(self);
form2.Show;
end;

 

A

Atomic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #7

对啊

 

G

gerry yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #8

支持panyongze!!!!

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #9

多人接受答案了。