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

 我来答 举报
MHMHCD
2013-05-03
知道答主
回答量:10
采纳率:0%
帮助的人:11万
展开全部
虽然是三个窗体,但是实际上还是在一个单元里的,也就是还是位于同一个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.
liu55721
2013-05-04 · TA获得超过922个赞
知道大有可为答主
回答量:1861
采纳率:100%
帮助的人:877万
展开全部
pagecontrol可以建立无数个tabsheet(页)这个页,可以称为操作界面,也可称为选项卡(如DELPHI的控件,就是放在一个pagecontrol组件的多个选项卡上)但是不能称为窗体,由TForm构建的界面才叫窗体。窗体在设计期和运行期都可以接受pagecontrol,作为它的容器;但pagecontrol的tabsheet在设计期内是不能作为form的容器的,不过在运行期可以作为form的容器。pagecontrol的tabsheet中的控件属性的值可以随时随地相互赋值,不需做任何声明或单元调用手续。
本回答被网友采纳
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
forestry98
2013-05-03 · TA获得超过2442个赞
知道小有建树答主
回答量:1351
采纳率:33%
帮助的人:558万
展开全部
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.

太简单 只贴代码 就不做说明了。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
台浦泽4r
2013-05-03 · TA获得超过937个赞
知道小有建树答主
回答量:1249
采纳率:62%
帮助的人:639万
展开全部
在窗体2中引用一下窗体1的单元。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式