AnonymousEvent

Anonymousevent

Delphi匿名活動

特徵

啟用使用匿名方法作為Delphi中的事件

例子

 procedure TfrmPrincipal.FormCreate(Sender: TObject);
type
   TKeyPressEventRef = reference to procedure(Sender: TObject; var Key: Char);
begin
   btn1.OnClick := TAnonymousEvent < TNotifyEvent, TProc < TObject >> (
	  procedure(Sender: TObject)
	  begin
		 ShowMessage(Self.ClassName + '.' + Sender.ClassName);
	  end);

   edt1.OnKeyPress := TAnonymousEvent<TKeyPressEvent, TKeyPressEventRef>.Create(Self,
	  procedure(Sender: TObject; var Key: Char)
	  begin
		 Key := 'A';
	  end);
end;