delphi 事件属性例子

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure ceshi(sender:TObject);
  private

    { Private declarations }
声明一个事件，与c#中事件委托用法和过程基本相同
 FTest:TNotifyEvent;
  public
    { Public declarations }
定义属性，与c# set get 功能相同
 property Test:TNotifyEvent read FTest write FTest;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 把ceshi函数对FTest进行赋值
 FTest := ceshi;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if Assigned(FTest) then
  Test(Self);
end;

procedure TForm1.ceshi(Sender:TObject);
begin
  ShowMessage('hello world');
end;
end.