如何在其它程序窗口(已知窗口的句柄)加上一个按钮

最新推荐文章于 2020-07-03 13:34:22 发布

fengchuixuelai

最新推荐文章于 2020-07-03 13:34:22 发布

阅读量1.6k

点赞数 1

分类专栏：组件应用文章标签： integer button function

组件应用专栏收录该内容

7 篇文章

订阅专栏

本文介绍如何使用CreateWindow创建按钮并使用SetWindowLong函数通过子类技术截获控件消息，具体包括定义消息处理函数、创建窗口、设置窗口过程和消息处理逻辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

   使用CreateWindow来建立按钮,也可以建立其它消息。可以使用SetWindowLong函数通过子类技术截获控件消息。下面是一个简单的例子:
    var
     Form1: TForm1;
     h:HWND;
     proc : longint;

    function WndProc2(hwnd: HWnd; Msg: UINT; wParam: wParam;
     lParam: LPARAM) : integer; Far; stdcall;
    var i : integer;
    begin
     CASE Msg OF
     WM_LBUTTONUP:
     begin
     MessageBeep(MB_ICONASTERISK);
     end
     END;
     Result := CallWindowProc(TFNWndProc(proc), hwnd, Msg, wParam, lParam);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var l:longint;
    begin
     Form2.Show;
     h := CreateWindow('BUTTON', 'Hello',
     WS_VISIBLE + WS_CHILD, 0, 0, 100, 50, Form2.handle//GetDesktopWindow()
     , 0, 0, nil);
     proc := GetWindowLong(h, GWL_WNDPROC);
     l := longint(@WndProc2);
     SetWindowLong(h, GWL_WNDPROC, l);
    end;