Question

delphi7中用pagecontrol建立了一个3页的窗体，但是窗体2需要用到窗体1里的数据，该怎么调用啊

Answer 1

虽然是三个窗体，但是实际上还是在一个单元里的，也就是还是位于同一个Form里的。
这时候不需要什么特殊的操作，直接操作其他page里的控件就可以了。

比如要在第一个Page里点击按钮改变第三个Page里的文本框内容：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
pgc1: TPageControl;
ts1: TTabSheet;
ts2: TTabSheet;
ts3: TTabSheet;
btn1: TButton;//位于ts1中
edt1: TEdit;//位于ts3中
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
edt1.Text := 'Test';
end;

end.

Answer 2

pagecontrol可以建立无数个tabsheet(页）这个页，可以称为操作界面，也可称为选项卡（如DELPHI的控件，就是放在一个pagecontrol组件的多个选项卡上）但是不能称为窗体，由TForm构建的界面才叫窗体。窗体在设计期和运行期都可以接受pagecontrol，作为它的容器；但pagecontrol的tabsheet在设计期内是不能作为form的容器的，不过在运行期可以作为form的容器。pagecontrol的tabsheet中的控件属性的值可以随时随地相互赋值，不需做任何声明或单元调用手续。

Answer 3

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;

end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
Caption := Form1.Edit1.Text;
end;

end.

太简单 只贴代码 就不做说明了。

Answer 4

在窗体2中引用一下窗体1的单元。