delphi 使用自定义HANDLE处理消息

最新推荐文章于 2021-06-14 00:05:54 发布

转载最新推荐文章于 2021-06-14 00:05:54 发布 · 430 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/btxz/p/6103582.html

本文介绍了一个名为TCallHwnd的类，该类通过创建窗口句柄并发送自定义用户消息来实现跨窗口的消息传递。文章详细展示了如何创建窗口句柄、发送及接收消息，并提供了完整的Delphi代码示例。

unit UCallHwnd;

interface

uses
  Classes, Messages, Windows;

const
  WM_USER_MSG = WM_USER + 1;

type
  TCallHwnd = class(TObject)
  private
    FHwnd: THandle;
  protected
    procedure DoUserMessage(var AMsg: TMessage);
  public
    constructor Create;
    destructor Destroy; override;
    //调用测试
    function CallHwndTest: Boolean;
  end;

implementation

{ TCallHwnd }

function TCallHwnd.CallHwndTest: Boolean;
begin
  Result := PostMessage(FHwnd, WM_USER_MSG, 1, 2)
end;

constructor TCallHwnd.Create;
begin
  FHwnd := AllocateHWnd(DoUserMessage);
end;

destructor TCallHwnd.Destroy;
begin
  DeallocateHWnd(FHwnd);
  inherited;
end;

procedure TCallHwnd.DoUserMessage(var AMsg: TMessage);
begin
  if AMsg.Msg = WM_USER_MSG then
  begin
    //AMsg.LParam 2
    //AMsg.WParam 1
    //do something
  end
  else
    AMsg.Result := DefWindowProc(FHwnd, AMsg.Msg, AMsg.WPARAM, AMsg.LPARAM);
end;

end.

转载于:https://www.cnblogs.com/btxz/p/6103582.html