MDI架构中，主Form的action的ONexecute根据子窗口动态改变dataset?

1、在一个MDI架构中，主Form的action的ONexecute根据子窗口动态改变clientdataset?  
        如：进入子窗口form1中，动态改变主窗口MDIFORM中的action1的execute事件：  
                添加为：clientdataset1.append;  
   
          如：进入子窗口form2中，动态改变主窗口MDIFORM中的action1的execute事件：  
                添加为：clientdataset2.append;  
   
            请问，怎么做？在线等待！  
  问题点数：100、回复次数：3Top

1 楼chechy（www.qdocuments.net）回复于 2002-04-13 18:41:48 得分 100

和上次回答的差不多，依然可以这样：  
  form1.Tag   :=   Integer(clientDataset1);  
  form2.Tag   :=   Integer(clientdataset2);  
   
  在主窗口的action1的execute事件中写：  
  var  
      aTag:   Integer;  
   
  if   Assigned(Screen.ActiveForm)   then  
  begin  
      aTag   =   Screen.ActiveForm.Tag;  
      if   (aTag   <>   0)   then  
          with   TObject(aTag)   as   TDataSet   do  
              Append;  
  end;Top

2 楼Liusp（夜深千帐灯）回复于 2002-04-15 09:59:11 得分 0

关注Top

3 楼erp2（天涯劍）回复于 2002-06-18 14:02:24 得分 0

gzTop

相关问题

• 架构
• tag
• onexecute
• 主
• clientdataset
• mdi架构
• 子窗口
• atag
• 动态改变
• activeform

• 帖主：pk3g9a
• chechy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载