Regresar a la pespaña anterior en el pagecontrol

[novato_erick]

Hola amigamos:

Estoy utilizando el Componente PageControl el cual tengo una validación que si no se cumple regrese a la pestaña principal o a la pagina principal del pageControl1.

como el TabSheet no tiene un evento OnClick lo relizo en el OnShow del segundo TabSheet ejemplo:

Código Delphi [-]
procedure TFrmIngresarArticulo.TabSheet2Show(Sender: TObject);
begin
if Valida = false then
 begin
  ShowMessage('Favor Verificar Datos de Articulos');
 // PageControl1.FindNextPage(TabSheet2, False, True); //también lo intente de esta forma utilizando el método findnextPage del PageControl pero no me funciono
 PageControl1.ActivePage := PageControl1.Pages[0];// aqui traté de obligar a que se ponga en la pagina con el indice 0
 end;
end;

Alguna sugerencia?

Saludos

[jhonny]

Bueno, así como lo haces debe funcionar correctamente lo que entendí que quieres hacer. Por mi parte no comprendo cual es tu inquietud realmente :S

[novato_erick]

Exacto así es en teoría se hace pero simplemente no hace el procedimiento en el código simplemente se queda en el TabSheet2 después de enviar el mensaje no se coloca en el TabSheet1.... esa es mi inquietud...
y lo que quiero hacer es que no me permita pasar a la siguiente pagina aunque precione en las pestañas 2 hasta que mi valida este en true;


Saudos a jhonny...

[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..

[jhonny]

¡Genial! , felicidades.