4
votes
Vote UpVote

A Generic TLKEventListener for LKSL

The Art of Delphi Programming – While playing a bit with Simon Stuarts LKSL event engine, I thought it would be quite handy to have a generic TLKEventListener taking away the need for some boiler plate code. Here it is:type TLKEventListener<T: TLKEvent> = class(TLKEventListener) type TEventCallback = procedure(const AEvent: T) of object; private FOnEvent: TEventCallback; function GetOnEvent: TEventCallback; procedure SetOnEvent(const AOnEvent: TEventCallback); public procedure EventCall(const AEvent: TLKEvent); override; function GetEventType: TLKEventType; override; property ...
Favorite? Off-Topic? Uwe Raabe @ 2014-11-09 12:05

Statistics

Visits: 791
Votes: 4
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

François
Jeroen Pluimers
Ravaut123
Wouter
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

 
Please login or register to use this functionality.
(click on this box to dismiss)