Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 10-06-2006
Avatar de Colgueit
Colgueit Colgueit is offline
Miembro
 
Registrado: abr 2006
Ubicación: Lanzarote, España
Posts: 91
Poder: 21
Colgueit Va por buen camino
Thumbs up Respuesta a mi mismo

Gracias Dec,

Al final lo he conseguido, lo explico y pongo aquí el código por si alguien le ha surgido el mismo problema.

Lo que he hecho es crear una variable que guarda el indice del ultimo TabSheet seleccinado y cuando cambio de TabSheet compruebo si es el que no quiero que se visualize, si es ese vuelvo al TabSheet anterior.
Código Delphi [-]
TabAnterior:Integer;

procedure TFormX.PageControlChange(Sender: TObject);
begin
   if (PageControlVisitas.ActivePageIndex = 6) then
   begin
     If TabAnterior=6 then
       TabAnterior:=0;
     PageControl.ActivePageIndex := TabAnterior
   end
   else
      TabAnterior := PageControlVisitas.ActivePageIndex;
end;

Un saludo!
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con PageControl y TabSheet rruffino Varios 15 21-10-2015 22:06:18
Como colocar una imagen en PageControl.Tabsheet ilichhernandez OOP 5 15-11-2005 19:35:26
tabsheet chechu Varios 1 15-11-2005 16:48:33
TabSheet REHome OOP 4 03-12-2004 05:33:23
TabSheet ramonibk Varios 3 23-09-2004 12:47:07


La franja horaria es GMT +2. Ahora son las 12:15:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi