proceduren zuweisen in eigener klasse

[mkinzler]

Delphi-Quellcode:

...
private
  FonClick: TNotifyEvent;
  procedure AIClick(x,y:integer); 
...
property OnClick: TNotifyEvent read FonClick write FonClick;