Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

PageControl

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Consultas
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Mensaje    Asunto: PageControl Responder citando

Tengo dos PageSheet y tengo un boton fuera del mismo, como hago para que se ejecute un codigo, este de acuerdo al PageSheet que este habilitado.
Volver arriba
Mensaje    Asunto: Responder citando

No se si he entendido bien tu pregunta Shocked , si lo que quieres averiguar a través del código cual es la pestaña activa de un TPageControl ahí va un ejemplo:
Código:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int num_pestanya = 0;
    AnsiString mensaje = "La pestaña activa es la número ";
    switch (PageControl1->ActivePageIndex){
      case 0:
        num_pestanya = 1;
      break;
      case 1:
        num_pestanya = 2;
      break;
      case 2:
        num_pestanya = 3;
      break;
    }
    ShowMessage(mensaje+IntToStr(num_pestanya));
}

Hay un TButton y un TPageControl y al pulsar el botón nos muestra el número de la pestaña activa. ¿Era así de fácil? Cool
_________________
¡ADELANTE CON ESTE SUPER FORO!
Volver arriba
Ver perfil de usuario Enviar mensaje privado
Mensaje    Asunto: Responder citando

Haciendo una pequeña modificacion el codigo de Tugui, para reducirle lineas quedaria asi...
Código:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage("La pestaña activa es la número "+AnsiString(PageControl->ActivePageIndex+1));
}


Pero en sí, lo importante es hacer notar que la propiedad ActivePageIndex es la que te dice que pagina esta activa, recuerda que como todos los indices en la VCL, el primero es 0.... y la propiedad ActivePage es un apuntador a la pagina activa Wink
_________________
Dirección Municipal de Informática
H. Ayuntamiento de Tijuana
Arriba Lopez Obrador !!!
Los Mexicanos Merecemos Respeto !!!
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Mostrar mensajes de anteriores:   
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.