DIY自己的AllocateHWnd函数

你的名字 2021-11-26 16:22 210阅读 0赞

Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的，原型：

`function`  `AllocateHWnd(Method: TWndMethod): HWND;`

很多时候，我们想要创建一个窗口，而又不想因为这个参数而创建一个类，怎么办？  
换句话说，就是能不能使传入的参数是个普通的函数而不是类的方法呢？答案是肯定的！  
看看TWndMethod的声明：

type  
TWndMethod = procedure(var Message: TMessage) of object;

实际上类的方法在执行时，总是传入了对象这个参数。  
即此方法共传了两个参数，根据Delphi默认的registry调用约定，寄存器eax传递对象，edx传递Message结构变量。  
  
因此我们可以声明处理消息的函数的类型：

type  
TMyWndProc = procedure(AObject: TObject; var Message: TMessage);

我们自定义MyAllocateHWnd函数以接收这个类型的参数，内部调用AllocateHWnd：

function MyAllocateHWnd(Proc: TMyWndProc): HWND;
    asm
    　　push 0//AObject
    　　push Proc//Message
    　　call AllocateHWnd
    end;

ps:如果直接调用AllocateHwnd(Proc)是不能通过编译的！  
  
//调用示例：

var H: HWND;
    
    procedure MyWndProc(AObject: TObject; var Message: TMessage);
    begin
    if Message.Msg = WM_USER + 111 then
    ShowMessage('')
    else
    Message.Result := DefWindowProc(H, Message.Msg, Message.WParam, Message.LParam)
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    H := MyAllocateHWnd(MyWndProc)
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    DeallocateHWnd(H);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    SendMessage(H, WM_USER + 111, 0, 0)
    end;

转载于:https://www.cnblogs.com/MaxWoods/p/3886796.html

发表评论取消回复

表情：

评论列表（有 0 条评论，210人围观）

还没有评论，来说两句吧...

相关阅读

相关如何封装自己的Ajax函数

封装Ajax函数一、要实现的效果 -------------------- 一、要实现的效果 ![在这里插入图片描述][30207e0483f34af0

落日映苍穹つ/ 2024年04月01日 18:43/ 0 赞/ 72 阅读

相关如何 DIY 一个自己的 NAS

我一直有个想法：等毕业后租房子后，淘一些二手服务器、交换机、机架，自己在家里搞一个私有云，私有云需要准备一些文件存储服务器，用于支持 KVM 热迁移或者是自己的一些数据备份。

た入场券/ 2022年12月11日 15:11/ 0 赞/ 128 阅读

相关 DIY一个属于自己的微服务框架

从Vertx提供的通信方式开始第一个集群节点启动 package org.example; import com.hazelcast.c

谁践踏了优雅/ 2022年09月05日 00:04/ 0 赞/ 173 阅读

相关自己动手 DIY 一个读写200MB/s 的高速 U 盘

文章目录认识 SLC MLC TLC QLC PLC DIY U盘：银灿 IS903 双贴东芝 SLC 颗粒制作过程

矫情吗；*/ 2022年09月03日 10:21/ 0 赞/ 235 阅读

相关 memcpy函数更自己的实现

include<stdio.h> include<stdlib.h> include<memory.h> include<string.h>

悠悠/ 2022年07月24日 12:23/ 0 赞/ 147 阅读

相关自己实现fmod函数

问题描述：自己实现一个MyFmod函数，要和C语言库函数的fmod函数完成同样的功能。问题分析：首先我们要了解一下fmod函数它到底做了什么事情 (1) 函数原

港控/mmm°/ 2022年06月15日 07:21/ 0 赞/ 179 阅读

相关如何DIY一台属于你自己的电脑？

1946 年 2 月 14 日，ENIAC 在美国宾夕法尼亚大学出现。71 年过去了，计算机经历了无数次的更新迭代，成为了我们现在使用的样子。笔记本基本都是由各个厂商直接搭

ゞ浴缸里的玫瑰/ 2022年06月04日 09:09/ 0 赞/ 272 阅读

相关自己写strcmp( )函数

网上搜到了一个库函数strcmp( )源代码: int strcmp (const char src, const char dst) {

蔚落/ 2022年05月30日 09:18/ 0 赞/ 211 阅读

相关 DIY自己的AllocateHWnd函数

Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的，原型： `function` `AllocateHWnd(Method: TW

你的名字/ 2021年11月26日 16:22/ 0 赞/ 211 阅读

相关 js 封装自己的Ajax函数

封装自己的Ajax函数主要是兼容自己的get，post两种不同请求的请求方式，在实现一下兼容的处理 ajax.open(method,url,true) 方法post

骑猪看日落/ 2021年11月11日 14:12/ 0 赞/ 285 阅读