Delphi Edit右键系统菜单加自定义菜单项

最新推荐文章于 2024-01-29 12:36:05 发布

s11ss

最新推荐文章于 2024-01-29 12:36:05 发布

阅读量2.4k

点赞数

文章标签： delphi edit右键菜单 WM_ENTERIDLE WM_CONTEXTMENU MN_GETHMENU

本文链接：https://blog.csdn.net/s11ss/article/details/40216737

版权

本文介绍如何在Delphi的Edit组件上实现右键点击时显示自定义菜单项，通过处理WM_ENTERIDLE和WM_CONTEXTMENU消息，结合MN_GETHMENU来扩展系统菜单。

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

闲言少叙，详见代码！

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  oldEditWndProc: Pointer;
  hk: HHOOK;
  hm: HMENU;
  r: TRect;
  bSelected: Boolean;

function GetMsgProc(c, w: Integer; l: PMSG): Integer stdcall;
begin
  if c=HC_ACTION then
    if l^.message=WM_LBUTTONUP then
    begin
      if l^.hwnd = Form1.Edit1.Handle then
        if PtInRect(r, Point(LOWORD(l^.lParam), HIWORD(l^.lParam))) then
        begin
          OutputDebugString(pchar(format('click: %d,%d,%d,%d------%d,%d',[r.Left,r.Top,r.Right,r.Bottom,LOWORD(l^.lParam), HIWORD(l^.lParam)])));
          bSelected :=