怎样在DELPHI中实现,在父窗体中调用子窗体中的自定义过程,这个子窗体也是动态创建的, var ChildFrm:TChildFrm; ChildFrm:=TChildFrm.Create(Owner); // 若过程有参数,可以在这里初始化参数值; CHildFrm.SomeProc; ChildFrm.Free; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1 uese 子窗体单元2 子窗体名.过程名 说明一点,该过程要在子窗体的 Public 或 Published 中定义。 埃,可以这样做: 假设你的子窗口为:TChildForm,其中有以下过程Procedure1; TChildForm(Form1.ActiveChildForm).Procedure1;即可。 unit ut3ViewWorkDeed;interfaceuses 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; 请问如何调用一个已有的用戶登陆界面到自己设计的程序模块中? DLL调用,大家如何使用数据类型?高分讨论? 小问题高分求解(在线求解马上给分) 关于按某一字段排序显示表中数据的问题? 请教关于TClientDataSet的问题,请进来看看。 怎样使程序不出现在任务栏上 ---- 急!!! 一个比较有难度的问题,是关于DBGrid的。 dock的问题 我清醒了,Nicrosoft兄请进来取分,十分感谢 如果我需要用到onDragOVer事件的Source和Sender这两个参数,要在Uses中声明什么? 一个问题,我很菜!! 大富翁的网址
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;