delphi 事件属性例子

unit Unit1;interfaceuses  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.