B
beadly
Unregistered / Unconfirmed
GUEST, unregistred user!
在表单A中,可否写表单B中的程式,比如:
unit frm_depa;//form a
....
....
procedure DataModule1.DataSource2StateChange(Sender: TObject); //写在form A 里 form B的代码,要求在form a 里执行
begin
case DataModule1.DataSource2.State of
dsBrowse:lb_Modal.Caption:='[浏览模式]';
dsEdit:lb_Modal.Caption:='[修改模式]';
dsInsert:lb_Modal.Caption:='[插入模式]';
else lb_Modal.Caption:='[其他模式]';
end;
end;
在表单DataModule1的DataSource2StateChange事件中并没有其它代码.很多朋友说可以,只要在implementation
后USES对方表单名称就可以,这个我早就试过,不知道为什么,就是不可以,而且在TYPE中的procedure DataModule1.DataSource2StateChange(Sender: TObject);
这语句也报错.
说了那么多,不知说清了没有?
unit frm_depa;//form a
....
....
procedure DataModule1.DataSource2StateChange(Sender: TObject); //写在form A 里 form B的代码,要求在form a 里执行
begin
case DataModule1.DataSource2.State of
dsBrowse:lb_Modal.Caption:='[浏览模式]';
dsEdit:lb_Modal.Caption:='[修改模式]';
dsInsert:lb_Modal.Caption:='[插入模式]';
else lb_Modal.Caption:='[其他模式]';
end;
end;
在表单DataModule1的DataSource2StateChange事件中并没有其它代码.很多朋友说可以,只要在implementation
后USES对方表单名称就可以,这个我早就试过,不知道为什么,就是不可以,而且在TYPE中的procedure DataModule1.DataSource2StateChange(Sender: TObject);
这语句也报错.
说了那么多,不知说清了没有?
atdModule1;
]