Delphi Firemonkey在主线程 异步调用函数(延迟调用)
2015-06-25 20:41
621 查看
先看下面的FMX.Layouts.pas中一段代码
在执行Inherited;这行时可能会调用控件的OnDblClick事件,如果此时在OnDblClick中将Form或控件释放了,后面调用MousePosToAni可能就会造成内存访问异常
因此最好能够在UI线程(主线程)中执行MouseDown完全后,再调用Form或控件的释放,如下面
下面是AsyncCallInUIThread的实现:
procedure TCustomScrollBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin FMouseEvents := True; inherited; if (Button = TMouseButton.mbLeft) then begin MousePosToAni(X, Y); AniMouseDown(ssTouch in Shift, X, Y); end; end;
在执行Inherited;这行时可能会调用控件的OnDblClick事件,如果此时在OnDblClick中将Form或控件释放了,后面调用MousePosToAni可能就会造成内存访问异常
因此最好能够在UI线程(主线程)中执行MouseDown完全后,再调用Form或控件的释放,如下面
procedure TForm1.OnListBox1Item1DblClick(Sender:TObject); begin ....//处理一些事情 AsyncCallInUIThread( procedure begin Self.DisposeOf; //延迟释放,防止内存访问异常 end); end;
下面是AsyncCallInUIThread的实现:
procedure AsyncCallInUIThread(Proc: TProc); begin TThread.CreateAnonymousThread( procedure begin Sleep(0); TThread.Synchronize(nil, procedure begin Proc; end); end).Start; end;
相关文章推荐
- Delphi中Chrome Chromium、Cef3学习笔记(三)
- delphi 调用webservice产生 Microsoft MSXML is not installed的解决办法。
- 使用Delphi Xe8 开发微信功能 -- (一)微信支付商户平台之对账单下载
- 让delphi程序不受WINDOWS日期格式的影响
- Delphi中Chrome Chromium、Cef3学习笔记(二)
- Delphi中Chrome Chromium、Cef3学习笔记(一)
- delphi日期格式化免操作系统依赖单元
- Delphi 安卓开发 小米MIUI系统备忘
- delphi 控件 combobox常识
- delphi Text,combox 输入框的统一验证
- Delphi调用java开发的WebService,传入参数出错
- 转:delphi异常捕获try except语句 和 try finally语句用法
- 推荐几个delphi的CSDN博客
- 编写delphi类
- Delphi正则表达式处理集合
- delphi中xmldocument对象使用方法
- Delphi XE的firemonkey获取当前文件所在路径的方法
- Delphi FireDAC 连接mysql
- SynEdit(Delphi XE7)的安装和基本使用
- Delphi 使用CreateProcess创建进程并弹出进程PID值 (转)