windows - TControl.Perform 的替代品

Question

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);   

Answer 1

要将消息添加到与另一个窗口关联的线程的队列中，您需要使用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，那也是错误的。预计会出现间歇性且难以诊断的故障。