[novato_erick]

Tenias Razón jhony:

debia de funcionar y lo logré en el evento OnChange del PageControl así:

Código Delphi [-]
procedure TFrmIngresarArticulo.PageControl1Change(Sender: TObject);
begin
if Valida = false then
 begin
  ShowMessage('Favor Verificar Datos de Articulos');
  PageControl1.ActivePageIndex := 0;
 end;
end;

Anteriormente estaba en el Evento OnShow del TabSheet2 en realidad no se me ocurre porque no tenia el comportamiento deseado sin embargo creo que doy por finalizado este tema

Saludos..