我 我是一只鱼 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #1 刚刚起步学Delphi，有一个简单的问题想问一下： 在Form1放一Button1,我想让button1按下后打开Form2,关闭Form1，不知行不行？行的话， 要怎么做？
A antic_ant Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #2 procedure Tform1.button1click(sender:Tobject); begin if form2=nil then begin try form2:=Tform2.create(nil); form2.showmodal; form1.close; finally form2.free; form2:=nil; end; end; end;
procedure Tform1.button1click(sender:Tobject); begin if form2=nil then begin try form2:=Tform2.create(nil); form2.showmodal; form1.close; finally form2.free; form2:=nil; end; end; end;
忘 忘情忘爱 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #3 procedure Tform1.button1click(sender:Tobject); begin form1.hide; form2.show; end;
P peter_peng1980 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #5 在form1中写这样的就行了 implementation [red]uses Unit2;[/red] {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2:=tform2.Create(nil); form2.ShowModal; form1.Free; end;
在form1中写这样的就行了 implementation [red]uses Unit2;[/red] {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2:=tform2.Create(nil); form2.ShowModal; form1.Free; end;
T tinytao Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #6 你想干什么？ 如果Form1是主窗口，关闭Form1，程序就会关闭。 所以你可以设Form2为主窗口。把Form2创建前显示Form1.
P peter_peng1980 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-07 #7 在form1中写这样的就行了 implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2:=tform2.Create(nil); form2.ShowModal; form1.Free; end;
在form1中写这样的就行了 implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2:=tform2.Create(nil); form2.ShowModal; form1.Free; end;
