ofrm=createobject('form')
ofrm.addobject('PF','PageFrame')
ofrm.PF.addobject('P1','P0')
ofrm.PF.addobject('P2','P0')
ofrm.PF.addobject('P3','P0')
ofrm.PF.Visible=.t.
ofrm.show

define class p0 as page
procedure activate
MyProc(this.name)
endproc
enddef

procedure MyProc(cPageName)
if cPageName=[P3]
* do sumething else
endif
endproc

One way would be to have the subclass point a a general procedure and route the process based on the name.


>I have a form class with page frame and two pages in it.
>
>Now I have derived a subclass of the above and have added two more pages to the page frame.
>
>The two new pages do not have the same properties set for the first two namely activate event should refresh the page.
>
>Any way I can make the two new pages inherit from the first two pages.
>
>Regards
>Bhavbhuti