delphi自定義事件處理

      為什么我們點擊按鈕，就會執行按鈕的onclick事件？這個事件是怎么和我們自己的代碼關聯起來的。相信很多人都有這個疑問。那么我們就通過一個自定義事件來了解這里面得運行原理。以乘法運算來顯示，如果乘數大於100，就提示用戶，太大了。這個事件用自定義事件定義。 大家先看一下最終效果，

      我添加了三個文本框，一個按鈕，當第一或者第二個文本框的數>100時，點求積按鈕，提示Too Big 對話框。

      完成自定義事件需要5步來做：

     1.定義TNotifyEvent類型私有變量

        

FTooBig:TNotifyEvent;

 

         FTooBig是一個指針，它可以保持事件方法的調用地址。

     2.公布一個屬性

         

published
   property  OnTooBig:TNotifyevent  read  FTooBig  write  FTooBig;

 

         OnTooBig這個屬性用來操作FTooBig這個私有變量，因為FTooBig是個函數指針，所以但讀這個變量時，也就調用了函數。

     3.定義事件處理函數

 

         procedure TooBigEvent(Sender: TObject);

         procedure TForm1.TooBigEvent(Sender: TObject);
         begin
         Application.MessageBox('Too Big','Test Event!',MB_OK);
         end;

 

         這是當文本框數太大時執行的方法。

     4. 把事件處理函數賦值給TNotifyEvent私有變量

         FTooBig := TooBigEvent;

     5. 當條件符合時執行事件處理函數

 

procedure TForm1.Button1Click(Sender: TObject);
var
  val1 : integer;
  val2 : integer;
  res  : integer;
begin
 val1 := StrToInt(Edit1.Text);
 val2 := StrToInt(Edit2.Text);
 if(val1<100)and(val2<100) then
 begin
 res := val1*val2;
 Edit3.Text := IntToStr(res);
 end
 else
 if assigned(FTooBig) then OnTooBig(Self);
end;

 

     下面貼出全部代碼：

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure TooBigEvent(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

     FTooBig:TNotifyEvent; 
    { Private declarations }
  public
    { Public declarations }
  published
    property OnTooBig:TNotifyevent read FTooBig write FTooBig;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  val1 : integer;
  val2 : integer;
  res  : integer;
begin
 val1 := StrToInt(Edit1.Text);
 val2 := StrToInt(Edit2.Text);
 if(val1<100)and(val2<100) then
 begin
 res := val1*val2;
 Edit3.Text := IntToStr(res);
 end
 else
 if assigned(FTooBig) then OnTooBig(Self);
end;
procedure TForm1.TooBigEvent(Sender: TObject);
begin
Application.MessageBox('Too Big','Test Event!',MB_OK);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
FTooBig := TooBigEvent;
end;

end.