var ChildFrm:TChildFrm; ChildFrm:=TChildFrm.Create(Owner);
// 若过程有参数,可以在这里初始化参数值;
CHildFrm.SomeProc;
ChildFrm.Free;
// 若过程有参数,可以在这里初始化参数值;
CHildFrm.SomeProc;
ChildFrm.Free;
解决方案 »
- 很久没人散分了,小散0
- 散分,顺便说下昨晚开幕式感受
- 下载了一源,打开后弹出Class TWebBrowser not found ,是什么问题啊,
- 报错:运行时报"="附近有错,是怎么回事啊?请各位高手多多指点。我的语句如下:
- 请教怎么把一个grid中的数据都打印出来
- 从Access数据库中读出数据然后插到Microsoft Visual FoxPro 6.0中去的问题!
- 请教在delphi中如何获得汉字字符的区位吗
- 请教BitBlt函数的各个参数的详细解释
- 知道吗?也许是旧闻了,Delphi 6有补丁了,可以borland主页上下载。(内空)
- datetimepiker控件中为什么不能手工输入年份?
- 一个问题,我很菜!!
- 大富翁的网址
2 子窗体名.过程名
假设你的子窗口为:TChildForm,其中有以下过程Procedure1;
TChildForm(Form1.ActiveChildForm).Procedure1;即可。
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Mask, DBCtrls, ComCtrls, ExtCtrls, Db,
IBCustomDataSet, IBQuery, ToolEdit, RXDBCtrl;type
TFM3ViewWorkDeed = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
FM3ViewWorkDeed: TFM3ViewWorkDeed;//你所要的过程说明
procedure PerformWorkDeedInsert;implementation{$R *.DFM}//你所要的过程定义
procedure PerformWorkDeedInsert;
begin
FM3ViewWorkDeed := TFM3ViewWorkDeed.Create(nil);
with FM3ViewWorkDeed do
try
DBEdit4.DataSource.DataSet.Insert;
ShowModal;
DBEdit4.DataSource.DataSet.Cancel;
finally
FM3ViewWorkDeed.Free;
end;
end;按这个例子,
调用时,先uses
然后再调用PerformWorkDeedInsert就行了。。
但是实际的定义是这样的,
我不能将50分就这样给你们
procedure TFM3ViewWorkDeed 。PerformWorkDeedInsert;//类名.过程名
begin
FM3ViewWorkDeed := TFM3ViewWorkDeed.Create(nil);
with FM3ViewWorkDeed do
try
DBEdit4.DataSource.DataSet.Insert;
ShowModal;
DBEdit4.DataSource.DataSet.Cancel;
finally
FM3ViewWorkDeed.Free;
end;