关于动态创建窗体时的调用,谢谢帮忙,急用! 我在主窗体下动态创建了一个窗体,在这个动态创建的窗体中,我又动态创建了一个窗体,在第二个动态创建的窗体下,我想用第一个动态创建的窗体内的东西(比如对一个Edit的text进行赋值),我试了不能成功·怎么回事?要实现这个功能该怎么办?我的代码是: Form2.Edit1.Text:='123'; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses 我用了,代码很简单第一个在主窗体下的button的click事件procedure TForm1.Button1Click(Sender: TObject);var form2:tform2;begin form2:=tform2.Create(application); form2.Parent:=form1; form2.Show;end;第二个在上一个窗体下的button的click事件procedure TForm2.Button1Click(Sender: TObject);var form3:tform3;begin form3:=tform3.Create(self); form3.Parent:=form2; form3.Show;end;在第三个窗体下procedure TForm3.Button1Click(Sender: TObject);begin form2.Edit1.Text:='456';end; 请教,这样的程序应该怎么去做 置疑『目前,你在工作中使用率排在第一位的开发语言是?』的结果 一个简单的获得当前数据的问题? 知道IE的句柄,怎样获得IE地址栏的句柄????????? 程序调试的方法。 如何拦截程序启动,并出个提示??? 请问哪有delphi开发组件的电子书?或是书店有这样的书? API问题 用DELPHI编的屏保在98中出现的问题 除了form1.close还有没有关闭程序的方法?越多越好。 初学delphi 发布问题请大家帮忙!!!! 我来问个简单问题!DBGRID怎么排序呀?
代码很简单
第一个在主窗体下的button的click事件
procedure TForm1.Button1Click(Sender: TObject);
var form2:tform2;
begin
form2:=tform2.Create(application);
form2.Parent:=form1;
form2.Show;
end;第二个在上一个窗体下的button的click事件
procedure TForm2.Button1Click(Sender: TObject);
var form3:tform3;
begin
form3:=tform3.Create(self);
form3.Parent:=form2;
form3.Show;
end;在第三个窗体下
procedure TForm3.Button1Click(Sender: TObject);
begin
form2.Edit1.Text:='456';
end;