dll的入口写法,来着有分 如何在dll的入口处启动data moudule,使得dll中每个from 都公用data moudule的ADOConnection. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 dll中:uses Forms, DataModuleUnit, FormUnit,...;begin DataModule1 := TDataModule1.Create(Application); Form1 := TForm1.Create(Application);end.在DataModule的unit中constructor TDataModule1.Create(AOwner: TComponent)begin ADOTable1.Active := true;end; <<<在DataModule的unit中constructor TDataModule1.Create(AOwner: TComponent)begin ADOTable1.Active := true;end>>>执行此段回出错 procedure RunDLL;begin try //初始化DATAMODULE Application.Initialize; Application.CreateForm(TdmManPower, dmManPower); except end; MyForm := TMyForm.Create(Nil) try MyForm.ShowModal; finally MyForm.Free; end;end; 请问Delphi怎么和Web通讯 跪求SQL语句!!! 如何实现virtual,abstract中的方法…… TstringGrid的及其辣手的问题 版主:没人帮我 query 删除记录! 我在线等解决办法!!!!!!! 在数据表中有一个逻辑型字段如何在Dbgrid中以复选框形式进行显示? 使用TFastbmp遇到的问题。 请问,变速齿轮的原理是什么呢? 内存读取 用delphi 请各位斑竹,大虾指点如何入门delpi 用ado能进行事务处理吗? 一小段代码(源码)大家帮忙看看
uses Forms, DataModuleUnit, FormUnit,...;begin
DataModule1 := TDataModule1.Create(Application);
Form1 := TForm1.Create(Application);
end.在DataModule的unit中
constructor TDataModule1.Create(AOwner: TComponent)
begin
ADOTable1.Active := true;
end;
constructor TDataModule1.Create(AOwner: TComponent)
begin
ADOTable1.Active := true;
end>>>
执行此段回出错
begin
try //初始化DATAMODULE
Application.Initialize;
Application.CreateForm(TdmManPower, dmManPower);
except
end;
MyForm := TMyForm.Create(Nil)
try
MyForm.ShowModal;
finally
MyForm.Free;
end;
end;