Salut !

Il y aurait peut-être plus simple :

Button1->Enabled = (((TPageControl *)Sender)->ActivePage != TabSheet2);

A plus !