【控件功能】我来做练习-消息类后台发送

最新推荐文章于 2024-11-05 15:26:40 发布

大龙软件研发

最新推荐文章于 2024-11-05 15:26:40 发布

阅读量460

点赞数 8

分类专栏：编程软件控件研究文章标签： DELPHI 开发语言笔记

本文链接：https://blog.csdn.net/reson100/article/details/138890221

版权

本文介绍了如何在Delphi中实现在后台发送消息类，特别关注核心源码部分。通过示例代码展示了双击消息处理函数HeaderProc，以及在用户界面中响应ListView子窗口双击事件的方法。

摘要由CSDN通过智能技术生成

文章目录

- 消息类后台发送
- 核心源码

消息类后台发送

提示：这里可以添加技术概要

核心源码

uses commctrl;

function HeaderProc(wnd: HWND; Msg: Cardinal; wParam: wParam; lParam: lParam): Longint;
stdcall;
var
hti: THDHitTestInfo;
begin
Result := CallWindowProc(Pointer(GetWindowLong(wnd, GWL_USERDATA)),
wnd, Msg, wParam, lParam);
if Msg = WM_LBUTTONDBLCLK then
begin
FillChar(hti, SizeOf(hti), 0);
hti.Point := SmallPointToPoint(TSmallPoint(lParam));
if SendMessage(wnd, HDM_HITTEST, 0, Longint(@hti)) >= 0 then
if hti.Flags = HHT_ONHEADER then
// would usually send a custom notification to GetParent(wnd) here
Form1.Memo1.Lines.Add(Format(‘doubleclick on header item %d’, [hti.Item]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
buffer: array [0…80] of Char;
oldProc: