Hola Amigos !!!!!
En un TPageControl cuando el usuario cambia de pestañas se activa el evento OnChange que realiza una acción determinada.
El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.
Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++
Código:
type
THackPageControl = Class(TPageControl) ;
procedure SetAsActivePage(tabSheet : TTabSheet) ;
begin
if tabSheet.PageControl.ActivePage <> tabSheet then
begin
If THackPageControl(tabSheet.PageControl).CanChange then
begin
tabSheet.PageControl.ActivePage := tabSheet;
THackPageControl(tabSheet.PageControl).Change;
end
else Abort;
end;
end;
Saludos.