zoukankan      html  css  js  c++  java
  • Delphi 使用自定义消息

    Delphi 使用自定义消息

     
    1、先用Const 定义一个常量,例如 const WM_MyMessage=WM_USER+$200;

    2、在要实现的unit中定义一个私有方法

       procedure doMyMessage(var msg:TMessage);message WM_MyMessage;

    3、实现这个私有方法

        procedure TForm1.doMyMessage(var msg:TMessage);

    begin

      //

      if msg.Msg= WM_MyMessage then

        showmessage('好啊')

      else

        showmessage('不好');

    end;

    4、最重要 把这个消息广播出去 Form1.Perform(WM_MyMessage,0,0);

    下面是实现的代码

    unit Unit1;

    interface

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

      Dialogs, StdCtrls;

    const WM_MyMessage=WM_USER+$200;

    type

      TForm1 = class(TForm)

        Button1: TButton;

        procedure Button1Click(Sender: TObject);

      private

        procedure doMyMessage(var msg:TMessage);message WM_MyMessage;

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.doMyMessage(var msg:TMessage);

    begin

      //

      if msg.Msg= WM_MyMessage then

        showmessage('好啊')

      else

        showmessage('不好');

    end;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

       Form1.Perform(WM_MyMessage,0,0);

    end;

    end.

  • 相关阅读:
    PHP学习笔记
    $POST 、$HTTP_RAW_POST_DATA、php://input三者之间的区别
    APACHE支持.htaccess以及 No input file specified解决方案
    PHP常用函数总结
    PHP网页的工作原理
    Lamp源码安装参考教程
    php相关配置
    PHP技巧:提高PHP性能的53个技巧
    面向对象工具
    面向对象基础
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/3291483.html
Copyright © 2011-2022 走看看