展开全部
虽然是三个窗体,但是实际上还是在一个单元里的,也就是还是位于同一个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.
这时候不需要什么特殊的操作,直接操作其他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.
展开全部
pagecontrol可以建立无数个tabsheet(页)这个页,可以称为操作界面,也可称为选项卡(如DELPHI的控件,就是放在一个pagecontrol组件的多个选项卡上)但是不能称为窗体,由TForm构建的界面才叫窗体。窗体在设计期和运行期都可以接受pagecontrol,作为它的容器;但pagecontrol的tabsheet在设计期内是不能作为form的容器的,不过在运行期可以作为form的容器。pagecontrol的tabsheet中的控件属性的值可以随时随地相互赋值,不需做任何声明或单元调用手续。
本回答被网友采纳
展开全部
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.
太简单 只贴代码 就不做说明了。
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.
太简单 只贴代码 就不做说明了。
展开全部
在窗体2中引用一下窗体1的单元。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询