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.ActivePage := PageControl1.Pages[0]; end;
end;
Alguna sugerencia?
Saludos