zoukankan      html  css  js  c++  java
  • 为Delphi程序添加事件和事件处理器

    在Delphi中,事件实际上是专门化的属性,它是一个过程(procedure)的指针。要添加事件,首先应在所定义的类中说明一个用来指向事件过

    程的指针,该指针的作用是当事件一旦发生,就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件

    属性以及与之关联的事件处理过程指针。

    private
      FpCalc : TNotifyEvent;//事件处理过程指针
    published
      property OnpCalc:TNotifyevent read FpCalc write FpCalc;{定义事件属性名}

    procedure TForm1.pCalc(Sender: TObject);
    begin
    //
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if assigned(FpCalc) then
        OnpCalc(Self);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      FpCalc := pCalc;{使事件处理指针指向事件处理器}
    end; 

  • 相关阅读:
    Map-HashMap
    Collection(List & Set)
    Redis五种数据类型详解
    Redis基本数据结构详解
    分布式Session管理
    一致性算法
    Zookeeper
    分布式锁
    线程池原理解析
    疑点难点1.1
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2941038.html
Copyright © 2011-2022 走看看