jjzjj

windows - TControl.Perform 的替代品

coder 2024-06-08 原文

TControl.Perform 代码是:

var
  Message: TMessage;
begin
  Message.Msg := Msg;
  Message.WParam := WParam;
  Message.LParam := LParam;
  Message.Result := 0;
  if Self <> nil then WindowProc(Message);
  Result := Message.Result;

程序执行等待返回，对吗？

有一种替代方法，可以在同一个应用程序的另一个线程内的 TFORM 队列中发布消息，而无需等待返回？

编辑

这种方法可以缓解这个问题吗？

interface

const  
  WM_DOSTUFF = WM_APP + $001;

TMyForm = class(TForm)
{stuff}
public
{Other stuff}
  procedure DoMyStuff(var Msg: TMessage); message WM_DOSTUFF;   
{More stuff}
end;  

var
  MyHandle: HWND;

implementation

constructor TMyForm.Create(AOwner: TComponent);
begin
  inherited;
  MyHandle := AllocateHWnd(DoMyStuff);
end; 

destructor TMyForm.Destroy;
begin
  DeallocateHWnd(MyHandle);
  inherited;
end;

并在线程内正常使用:

  PostMessage(MyHandle, WM_DOSTUFF, 0, 0);

最佳答案

要将消息添加到与另一个窗口关联的线程的队列中，您需要使用PostMessage。 Windows API 函数。

PostMessage(WindowHandle, Msg, WParam, LParam);

现在，如果您在与 GUI 线程不同的线程上执行此操作，则不能使用 Form.Handle 获取窗口句柄。那是因为这样做会引入与 GUI 线程的竞争。如果句柄需要重新创建，它将与您的线程而不是 GUI 线程相关联地创建。记住规则:只从 GUI 线程与 VCL 对象交互。

因此，您通常不会将 PostMessage 与 VCL 窗体的句柄一起使用，因为您无法轻易保证将消息传递到正确的窗口。即使您同步访问窗口句柄，也可以重新创建窗口并且您的消息不会到达。

异步传递消息的最简单方法是调用 TThread.Queue .这不需要窗口句柄来操作，因此避免了 VCL 对象与 GUI 线程的亲和性的所有问题。您在调用 Queue 时发送的过程在 GUI 线程上执行，因此可以安全地执行所有 VCL 操作。

如果您使用的是早于 TThread.Queue 的旧版 Delphi，那么它会更复杂。在这种情况下，您应该使用 PostMessage。但是您必须将消息定向到与表单无关的窗口。将其定向到使用 AllocateHWnd 创建的窗口.请记住，您必须在 GUI 线程上调用 AllocateHWnd。以这种方式创建的 Windows 不会重新创建，并且是 PostMessage 的安全目标。该窗口的窗口过程然后可以将消息转发到您的窗体。这是安全的，因为窗口过程在与其窗口关联的线程中执行。在这种情况下，它是 GUI 线程。

顺便说一句，如果您在远离 GUI 线程的地方调用 TControl.Perform，那也是错误的。预计会出现间歇性且难以诊断的故障。

关于windows - TControl.Perform 的替代品，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/16090478/

替代品TControlcodesectionPostMessagewindowsdelphimessage-queuevcl

有关windows - TControl.Perform 的替代品的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby - 在 jRuby 中使用 'fork' 生成进程的替代方案？ - 2

    在MRIRuby中我可以这样做:deftransferinternal_server=self.init_serverpid=forkdointernal_server.runend#Maketheserverprocessrunindependently.Process.detach(pid)internal_client=self.init_client#Dootherstuffwithconnectingtointernal_server...internal_client.post('somedata')ensure#KillserverProcess.kill('KILL',

  3. ruby-on-rails - 更好的替代方法 try( :output). try( :data). try( :name)? - 2

    “输出”是一个序列化的OpenStruct。定义标题try(:output).try(:data).try(:title)结束什么会更好？:) 最佳答案 或者只是这样:deftitleoutput.data.titlerescuenilend 关于ruby-on-rails-更好的替代方法try(:output).try(:data).try(:name)?，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.c

  4. ruby - 在 Windows 机器上使用 Ruby 进行开发是否会适得其反？ - 2

    这似乎非常适得其反，因为太多的gem会在window上破裂。我一直在处理很多mysql和ruby​​-mysqlgem问题(gem本身发生段错误，一个名为UnixSocket的类显然在Windows机器上不能正常工作，等等)。我只是在浪费时间吗？我应该转向不同的脚本语言吗？ 最佳答案 我在Windows上使用Ruby的经验很少，但是当我开始使用Ruby时，我是在Windows上，我的总体印象是它不是Windows原生系统。因此，在主要使用Windows多年之后，开始使用Ruby促使我切换回原来的系统Unix，这次是Linux。Rub

  5. Vscode+Cmake配置并运行opencv环境(Windows和Ubuntu大同小异) - 2

    之前在培训新生的时候，windows环境下配置opencv环境一直教的都是网上主流的vsstudio配置属性表，但是这个似乎对新生来说难度略高(虽然个人觉得完全是他们自己的问题)，加之暑假之后对cmake实在是爱不释手，且这样配置确实十分简单(其实都不需要配置)，故斗胆妄言vscode下配置CV之法。其实极为简单，图比较多所以很长。如果你看此文还配不好，你应该思考一下是不是自己的问题。闲话少说，直接开始。0.CMkae简介有的人到大二了都不知道cmake是什么，我不说是谁。CMake是一个开源免费并且跨平台的构建工具，可以用简单的语句来描述所有平台的编译过程。它能够根据当前所在平台输出对应的m

  6. 深度学习部署：Windows安装pycocotools报错解决方法 - 2

    深度学习部署：Windows安装pycocotools报错解决方法1.pycocotools库的简介2.pycocotools安装的坑3.解决办法更多Ai资讯：公主号AiCharm本系列是作者在跑一些深度学习实例时，遇到的各种各样的问题及解决办法，希望能够帮助到大家。ERROR:Commanderroredoutwithexitstatus1:'D:\Anaconda3\python.exe'-u-c'importsys,setuptools,tokenize;sys.argv[0]='"'"'C:\\Users\\46653\\AppData\\Local\\Temp\\pip-instal

  7. ruby - 允许主机名包含下划线的 URI.parse 的替代方法 - 2

    我正在使用DMOZ的listofurltopics，其中包含一些具有包含下划线的主机名的url。例如:608609TheOuterHeaven610InformationandimagegalleryofMcFarlane'sactionfiguresforTrigun,Akira,TenchiMuyoandotherJapaneseSci-Fianimations.611Top/Arts/Animation/Anime/Collectibles/Models_and_Figures/Action_Figures612虽然此url可以在网络浏览器中使用(或者至少在我的浏览器中可以使用:

  8. ruby-on-rails - Resque - 类的未定义方法 'perform' - 2

    我目前对后台队列不太满意。我正在尝试让Resque工作。我已经安装了redis和Resquegem。Redis正在运行。一个worker正在运行(rakeresque:workQUEUE=simple)。使用Web界面，我可以看到工作人员正在运行并等待工作。当我运行“rakeget_updates”时，作业已排队但失败了。我已经用defself.perform和defperform试过了。发条.raketask:get_updates=>:environmentdoResque.enqueue(GetUpdates)end类文件(app/workers/get_updates.rb)c

  9. ruby - 如何在 Ruby 中执行 Windows CLI 命令？ - 2

    我在目录“C:\DocumentsandSettings\test.exe”中有一个文件，但是当我用单引号编写命令时`C:\DocumentsandSettings\test.exe(我无法在此框中显示)，用于在Ruby中执行命令，我无法这样做，我收到的错误是找不到文件或目录。我尝试用“//”和“\”替换“\”，但似乎没有任何效果。我也使用过系统、IO.popen和exec命令，但所有的努力都是徒劳的。exec命令还使程序退出，这是我不想发生的。提前致谢。 最佳答案 反引号环境就像双引号，所以反斜杠用于转义。此外，Ruby会将空格解

  10. ruby-on-rails - jRails 替代品 - 2

    你知道jrails的替代品吗？它或多或少已经过时(使用jQuery1.5-现在1.7是当前版本)。有人知道替代方案吗？谢谢编辑:我知道如何使用jqueryallone构建rails助手-但我喜欢rails助手，所以我不想单独使用jquery(没有jrails) 最佳答案 我一直在Rails中使用Prototype助手，最近我决定转而使用JQuery。起初我查看了JRails，因为它是一个直接替代品，因此需要最少的工作。但是!在阅读了更多关于JQuery的信息并尝试使用它之后，我逐渐明白，结合使用Rails和JQuery的最佳方式就是

随机推荐