社区
Delphi
帖子详情
Application.ProcessMessages是做什么的?
qdujunjie
2006-10-25 04:40:09
在一个程序里,当欢迎界面关闭之后,首先调用了一个
Application.ProcessMessages;
请问这一句是作什么的?
...全文
268
5
打赏
收藏
Application.ProcessMessages是做什么的?
在一个程序里,当欢迎界面关闭之后,首先调用了一个 Application.ProcessMessages; 请问这一句是作什么的?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
王集鹄
2006-10-26
打赏
举报
回复
代码在执行的过程中,接受到消息是不执行的,被压到Windows消息队列中等待
Application.ProcessMessages;就是将等待的消息处理掉
chuchenggang
2006-10-25
打赏
举报
回复
是消息队列中的消息得到处理:Application.ProcessMessages;
如 while i < 1000 do
begin
Sleep(10);
Application.ProcessMessages;
end;
如上代码执行的时候,就不会阻塞消息循环,如果不加入Application.ProcessMessages;那么消息循环会阻塞
qdujunjie
2006-10-25
打赏
举报
回复
那消息队列里有什么消息需要响应呢?
如果没有这一句的话,系统能不能自己响应消息呢?
newfang
2006-10-25
打赏
举报
回复
响应消息队列里的消息!
flashtong
2006-10-25
打赏
举报
回复
处理消息
Application
.
Process
Messages
作用
Application
.
Process
Messages
作用
Application
.
Process
Messages
作用
Application
.
Process
Messages
作用
Application
.
Process
Messages
作用
Delphi延时函数
Delphi延时函数,能够在延时的同时响应线程消息。
Application
定时关机,服务控制器,截图工具,清理临时文件, 数据库备份,写字板
delphi 读取BIN文件
//读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: TfileStream; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := TfileStream.Create(sFileName,fmOpenRead); try f.Seek(lOffset,lOrigin); //文件定位,从lOrigin开始移动lOffset begin lRet := f.Read(f,count); //lRet为实际读到的字节数,ED_Data为读到的内容 form1.Memo2.Lines.LoadFromStream(f); j:=f.size div 1024; //计算文件一共有多少个包 // form1.suimemo1.Text:=strtohexstr(ed_data[count]);
Application
.
Process
Messages
; begin for i:=0 to j do begin form1.Label1.Caption:='正在读取第 '+inttostr(i)+' 包 '; form1.Memo1.Text:=form1.Memo1.Text+ midstr(strtohex(form1.Memo2.text),2048*i,2048)+' '; //Progressbar进度栏 form1.ProgressBar1.Max :=j; form1.ProgressBar1.Min:=0; form1.ProgressBar1.Position := i;
Application
.
Process
Messages
; end; // form1.memo2.clear; showmessage('成功读取'+inttostr(i)+'个包');
Application
.
Process
Messages
; end; end; finally FreeAndNil(f);
Application
.
Process
Messages
; end; end;
Delphi WebBrowser 将一段HTML文字显示在浏览器中.rar
Delphi WebBrowser 将一段HTML文字显示在网页浏览器中,实际是创建了一个HTML格式内容并显示出来,主要使用Delphi中内置的WebBrowser方法来实现: WebBrowser1.Navigate('about:blank'); while(tag=0) do
Application
.
Process
Messages
; vv := VarArrayCreate([0, 0], varVariant); HTMLDocument := WebBrowser1.Document as IHTMLDocument2; HTMLDocument.Write(PSafeArray(TVarData(vv).VArray)); HTMLDocument.Close;
Delphi
5,935
社区成员
262,943
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章