未入门的菜鸟提出的问题! ( 积分: 100 )

我想学delphi,请问各位大哥:
(1)不知道如何调用两个表单?如:在form1中设置的"按钮",按下时调用form2;
(2)一个程序编好后,如何设置主文件?

我想学delphi,请问各位大哥:
(1)不知道如何调用两个表单?如:在form1中设置的"按钮",按下时调用form2;
(2)一个程序编好后,如何设置主文件?

找本入门基础书看看吧

你先学的vb吧？
如楼上的朋友所说，找本基础书看看。

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show ;
//就可以调出第二窗体
end;
在project菜单里--》options就会有一个progject options 的对话框
在main form选择你想设置主文件了
建议看看基础的书

楼上说的对！

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, Buttons;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
uses unit2;
// 連接第二個窗體
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if form2=nil then
form2:=Tform2.Create(application);
//動態創鍵窗體。
form2.Show;
end;

end.

***************************************************
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button2: TButton;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
form2:=nil;
//關閉窗體
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
close;
//退出
end;

end.
多看看入門的書。很容易就會的

看下入门资料就知道这2个问题了。

//楼上的代码，不过下面这里我喜欢这么用
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(form2) then
//判断是否存在已知窗体实例
begin
try
form2:=Tform2.Create(self);
except
exit;
end;
end;
　form2.Show;
end;

多人接受答案了。