Código Delphi [-] TMyClass = class(TObject) private procedure MyOnClickEvent(Sender: TObject); //... end; // Ahora lo asignamos... MyButton.OnClikc := MyOnClickEvent;
TMyClass = class(TObject) private procedure MyOnClickEvent(Sender: TObject); //... end; // Ahora lo asignamos... MyButton.OnClikc := MyOnClickEvent;