zoukankan      html  css  js  c++  java
  • 覆盖Dispatch响应消息

    1 

    源代码:

    unit Unit1;

    interface

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

    type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      protected
         procedure Dispatch(var Message);override;
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    { TForm1 }

    { TForm1 }

    procedure TForm1.Dispatch(var Message);
    begin
      inherited;
      if Tmessage(Message).Msg=WM_LBUTTONDOWN then
      begin
        ShowMessage('Dispatch');
      end;

    end;

    end.

  • 相关阅读:
    团队冲刺--第二阶段(七)
    对搜狗输入法的评价
    团队冲刺--第二阶段(六)
    课堂练习-找水王
    基础
    基础
    基础
    基础
    基础
    基础
  • 原文地址:https://www.cnblogs.com/hackpig/p/1668590.html
Copyright © 2011-2022 走看看