接受sendmessage(application.handle..)的消息？

最新推荐文章于 2025-05-20 10:08:41 发布

转载最新推荐文章于 2025-05-20 10:08:41 发布 · 1.1k 阅读

文章标签：

#sockets #forms #interface #windows #class #user

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简单应用程序实例，该程序通过自定义窗口消息来触发特定的操作。具体实现了当发送自定义消息`wm_mymessage`到应用程序句柄时显示一条消息框。

unit   Unit1; 

interface 

uses 
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms, 
    Dialogs,   StdCtrls,   sockets; 
const 
  wm_mymessage   =   wm_user   +   1; 
type 
    TForm1   =   class(TForm) 
        btn1:   TButton; 
        procedure   FormShow(Sender: TObject);
        procedure   btn1Click(Sender:   TObject); 
    private 
        {   Private   declarations   } 
    public 
        {   Public   declarations   } 
        procedure   mymessage(var   Msg:   TMsg;   var   Handled:   Boolean); 
    end; 

var 
    Form1:   TForm1; 

implementation 

{$R   *.dfm} 

procedure   TForm1.FormShow(Sender: TObject); 
begin 
    application.onmessage   :=   mymessage; 
end; 

procedure   TForm1.mymessage(var   Msg:   TMsg;   var   Handled:   Boolean); 
begin 
    if   msg.message   =   wm_mymessage   then   
        showmessage( 'ok '); 
end; 

procedure   TForm1.btn1Click(Sender:   TObject); 
begin 
//     sendmessage(handle,   wm_mymessage,0,   0); 
  //  sendmessage(application.handle,   wm_mymessage,0,   0);   // 
    postmessage(application.handle,   wm_mymessage,0,   0);   // 

end;