delphi中Message消息的使用方法

实例1 

unit Unit1;

interface

uses

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

 

  const

WM_ME=WM_USER+100; // 自定义消息；

  type

 TForm1 = class(TForm)

    Button1: TButton;

procedure  Button1Click(Sender: TObject);

// 第一种消息处理方式 ; 只能处理常量消息；

     procedure  wmme(var message:TMessage);message WM_ME; // 自定义消息处理过程，专门处理WM_ME 消息； private

    { Private declarations }

  public

{ Public declarations }

// 第二种消息处理方式；可能处理常量或变量消息；

procedure  WndProc(var message:TMessage);override; // 重载窗口消息过程

// 第三种消息处理方式

    procedure  WMCommand(var Message: TWMCommand); message WM_COMMAND; // 命令消息处理过程

    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND; //处理系统性消息；

  end;

var

 Form1: TForm1;