doevent是将程序控制权移交操作系统吗?
你的问题也不明确,可能的答案应该是
1、application.ProcessMessages;
2、Sleep;
3、什么都不作,本来就在主循环中。
你的问题也不明确,可能的答案应该是
1、application.ProcessMessages;
2、Sleep;
3、什么都不作,本来就在主循环中。
解决方案 »
- delphi中使用Freetype绘字的一点分享
- 100分,问题解决,我愿意给你一千分。
- 各位大哥帮忙看看本解释二进制函数的逆函数怎么写!!!
- 用过D调用VC的Dll的请进....
- ?[高分求助]关于DevExpress dxDBGrid summarygroup 在线等待
- 关于webbrower填表的问题,现在有一个网页,里面的一个下接选择框,我如何才能使程序自动选择某一项呢?请大家帮助.例子如下:
- 请问在delphi开发当中如何进行多人协作。
- 如何添加一个TDateTimeField组件
- 如何动态生成QuickReport???即有一个form,点击一个自定义的按钮,来preview 报表,如何动态生成????
- 程序作好后,并用IS生成安装文件后,请问如何将这些文件打包,然后再安装。是不是有什么工具。谢谢
- 怎样在DBGrid的title中图标啊?
- OnClick事件中释放自己为什么出问题了?
不过用多线程执行ADO总报错,不知为什么,请诸位大虾再给瞧瞧看看,先谢了
代码:
procedure TForm1.Button1Click(Sender: TObject);
begin ThTest:=ttest.Create(AdoQuery1);
end;constructor ttest.Create(ADOQ: TADOQuery);
begin
ADOQuery:=ADOQ;
inherited create(false);
end;procedure ttest.Execute;
beginadoquery.SQL.Text:='select sum([Interval]) from Recordtab ';
adoquery.Open;//在此出错
if not (adoquery.Eof and adoquery.Bof) then
begin
adoquery.Recordset.MoveFirst;
GetVal:=adoQuery.Recordset.Fields[0].value;
end;end;
主要是执行一个SQL汇总,用ADO调用MDB数据库