Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-02-2013
Avatar de vicentnew
vicentnew vicentnew is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Goya - Corrientes - Argentina
Posts: 26
Poder: 0
vicentnew Va por buen camino
ver tpagecontrol

Estimados: tengo una tabla con una columna llamada cod y por otro lado tengo un tpagecontrol con 2 paginas ocultas una se llama uno y la otra dos, la idea es que cuando en la columna cod de mi tabla se visualice el numero 1 la pestaña dos sea visible, lo mismo con el numero 2, al aparecer en mi tabla se vea la pestaña dos. Bueno hasta alli no tengo problemas pero el asunto es que cuando en la tabla me aparecen los números 1 y 2 no logro que se vean las dos pestañas al mismo tiempo. Para ello me hice un case of

Código Delphi [-]
case tabla.FieldByName('cod').AsInteger of
      1: begin tablal.ActivePageIndex:= 0; uno.TabVisible:= True; end;
      2: begin tabla.ActivePageIndex:= 1; dos.TabVisible:= True; end;
  end;
lo que note es que con la función FieldByName solo puedo detectar el 1º registro aparentemente, bueno si alguien me da una mano estoy usando delphi xe2 con mysql y la librería zeoslib para conectarme. Gracias
Responder Con Cita
  #2  
Antiguo 07-02-2013
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 23
Caro Va por buen camino
Hola vicentnew, puedes contar la cantidad de registros que te devuelve, por ejemplo utilizar recordcount (esto no siempre funciona) o de la forma que quieras.

Código Delphi [-]
 if tabla.RecordCount>1 then
  begin
    uno.TabVisible:= True;
    dos.TabVisible:= True;
  end
 else 
   case tabla.FieldByName('cod').AsInteger of 
   .........................................
   .........................................

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
Respuesta



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
evento de tpagecontrol gonza_619 Varios 1 20-11-2010 22:09:25
OwnerDraw en TPageControl salvica OOP 2 05-02-2010 11:42:29
TPageControl Neiro SQL 4 06-10-2006 23:25:57
Fondo en TPageControl fabianmk OOP 4 02-10-2006 14:23:46
TpageControl agora18 Varios 6 17-10-2003 02:04:43


La franja horaria es GMT +2. Ahora son las 00:53:13.


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