FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda para Simplificar codigo
Hola Companeros del Club. primero que nada soy novato en esto. el punto es que estoy haciendo un programa hasta el momento todo marcha bien pero mi codigo esta un poco grande y se que se puede simplificar, espero que me ayuden, el caso es que tengo 16 botones y a cada uno lo tengo con estas sentencias
procedure TTMSForm1.AdvGlowButton6Click(Sender: TObject); begin with AdvToolBarPager1 do begin AdvPages[0].TabVisible:=false; AdvPages[1].TabVisible:=false; AdvPages[2].TabVisible:=false; AdvPages[3].TabVisible:=false; AdvPages[4].TabVisible:=false; AdvPages[5].TabVisible:=false; AdvPages[6].TabVisible:=false; AdvPages[7].TabVisible:=false; AdvPages[8].TabVisible:=false; AdvPages[9].TabVisible:=true; AdvPages[10].TabVisible:=false; AdvPages[11].TabVisible:=false; AdvPages[12].TabVisible:=false; AdvPages[13].TabVisible:=false; AdvPages[14].TabVisible:=false; AdvPages[15].TabVisible:=false; ActivePageIndex:=9; end; end; lo que quiero es que todos los AdvPages tengan la propiedad TabVisible:=false y que al dar click en el boton correspondiente se ponga como TabVisible:=true pero que al darle click a otro boton todos se pongan invisible a exepcion del que seleccione. espero de su ayuda y gracias por prestarle atencion a un novato como yo. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con código para copiar | radenf | API de Windows | 3 | 24-03-2009 12:12:30 |
ayuda para elaborar un codigo | josi | Varios | 2 | 22-09-2008 15:34:02 |
ayuda codigo para leer el puerto com1 | happy-word | Varios | 1 | 22-08-2008 17:41:44 |
Ayuda para extraer el codigo fuente de un HTML | Lerak | Internet | 2 | 12-04-2008 15:43:42 |
Ayuda con código para password | radenf | Varios | 7 | 29-10-2007 23:02:18 |
|