How to programmatically create method or event procedure of added object?
I have form. In init event of this form I want add object and set up properties ,metods and events of this object.
For example, next few lines create command button and set up caption and cancel properties.

THISFORM.ADDOBJECT("cmdCancelBtn",'commandbutton")
WITH THISFORM.cmdCancelBtn
.CAPTION="quit"
.CANCEL=.T.
ENDWITH

But how can I write, for example, procedure for CLICK event?

Thanks

Maros Klempa