FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
funcion para no repetir codigo:(
Holas que tal comunidad, espero en este tema si me puedan ayudar ya que con los remobjects de plano nadie me ha respondido nada , bueno expongo el siguiente tema:
lo que sucede es que ya que ando metido de lleno en delphi y en la programacion, estoy buscando alternativas para ahorrarme codigo y de paso que sea mas profesional, si alguien me pudiera ayudar de antemano como siempre mucha sgracias. lo que intento es que tengo 8 botones ocultos, quiero que al hacer click en un menu, se visualice una pestania del pagecontrol, en este caso al seleccionar 1 si esta visible otra que se oculte para darle paso a la que acabo de clickear, para dar una idea hice este codigo con solo 4 botones:
este codigo funciona y siempre lo he hecho para este tipo de casos pero me doy cuenta que es demasiado codigo para 4 botones, y yo tengo 8 :S aparte despues haria lo mismo para diferentes pagecontrol :S, lo que requiero es una funcion, que al clickear envie un parametro y segun el parametro este solo sea el visible y todos los demas, en mi caso los 7 botones restantes se oculten, pero como lo mostre hace un momento no quiero repetir todo el codigo mencionando todos los botones ocultos y solo el que sera visible, intente hacer un arreglo :S:S:S en donde meto todo el codigo de los componentes, pero es obvio que nunca funcionaria por que un componente creo, no puede ser colocado como un string, y despues hacer que funcione como un objeto :S
era algo asi en donde en un arreglo guardaba las declaraciones de los botones, en mi caso son pestanias, de un pagecontrol, y segun el parametro que enviaba, esa pestanaia que estaba almacenada en el arreglo, lo pondria despues en True, si es que coincidia, sino pues se pondria en False, es obvio que nunca haria nada pro que primero lo pongo en string y despues lo pongo en True, sobreescribiendo el valor de un string a true, pero bueno esa fue un intento fallido y algo tonto, :S pero por lo menos lo intente, espero me puedan ayudar en esto por que no se como hacerle o si es que se puede hacer de esa forma, o si me tengo que conformar con todo el codigo de los if, o case :S que es lo mismo , espero me puedan ayudar o orientar se los agradeceria, saludos Última edición por ecfisa fecha: 11-08-2011 a las 14:13:26. Razón: ETIQUETAS [DELPHI] [/DELPHI] |
#2
|
||||
|
||||
Respecto a visualizar los botones que quieres, la solución es poner a cada botón en la variable Tag un número 1..4 y con éste procedimiento hacerlo todo.
Espero que te sirva. Un saludo. |
#3
|
||||
|
||||
Respecto a las pestañas seria de la misma forma que los botones.
Un saludo. |
#4
|
||||
|
||||
Hola, por si quieres otra opción o por si te sirve para otras cosas también podrías hacer lo siguiente, pasando como parametro el número del botón que quieres hacer visible podrías hacer lo siguiente:
Espero te sirva. Saludos. |
#5
|
|||
|
|||
hola que tal olbeup muchas gracias por la respuesta, y te mentiria si es que le he entendido, creo que si en parte pero quisiera aclararlo, ok entonces a las pestanias, les pongo un numero diferente en su propiedad TAG como me has dicho, que por cierto si lo traen, una vez que estan puestos los numeros, supongo que al dar click en un boton eligiendo que pestania quiero que se vea, tengo que enviar el numero del TAG que pertenece a la pestania que quiero visualizar, algo asi, este es en realidad el nombre del procedimiento y asi enviare el numero
Cita:
|
#6
|
|||
|
|||
ElDioni andale eso es lo que estaba intentando con el array en tipo variant xD pero estaba cometiendo ese gran error xDDDD de despues cargar los datos con TRUE, probare tu procedimiento al igual que el procedimiento de olbeup, muchisimas gracias a ambos por tomarse la molestia de responder a mi pregunta, de antemano gracias enserio, siempre es un gusto saber que hay personas que se toman el tiempo para ayudar a otros gracias
|
#7
|
||||
|
||||
Cita:
Para la prrimera yo hubiera hecho algo así (funciona con cualquier número de botones que pases como parámetro, ya sean 4, 8,...)
La segunda no me ha quedado muy clara, pero supongo que puedes hacer algo similar.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
||||
|
||||
Sustituye éste Cita:
Última edición por olbeup fecha: 11-08-2011 a las 14:12:16. |
#9
|
||||
|
||||
Hola ivantj24.
Otra opción más para ocultar los botones:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#10
|
|||
|
|||
Creo que este código te servira para lo que requieres...
Debes considerar lo siguiente: El ejercicio consta de: Un Menu con los siguientes items: mnuPage0.Caption:='Pagina 0'; mnuPage0.Tag:=0; //COrresponde al indice de la página a mostrar mnuPage1.Caption:='Pagina 1'; mnuPage1.Tag:=1; mnuPage2.Caption:='Pagina 2'; mnuPage2.Tag:=2; En el evento del mnuPage0 escribe este código:
Y asocialo a los otros menuitem (mnuPage1, mnuPage2); Eso seria todo. |
#11
|
|||
|
|||
Muchisimas gracias a todos en verdad los que ayudan con las dudas que tenemos quienes comenzamos o tenemos poco tiempo en delphi, en verdad gracias a todos y cada uno probe los codigos y si sirven, espero que pueda servir a mas de uno con todas las referencias que me dieron, gracias y saludos comunidad
|
#12
|
|||
|
|||
Activar O Dsactivar Botones
procedure TFRMVehiculo.boton(Btn1,Btn2,Btn3,Btn4: Boolean);
begin // BtnGrabar.Enabled :=Btn1; // BtnEliminar.Enabled :=Btn2; // BtnCancelar.Enabled :=Btn3; // BtnSalida.Enabled :=Btn4; end; procedure boton(Btn1,Btn2,Btn3,Btn4: Boolean); public { Public declarations } end; y cuando quieras activas o desactiva boton(false,false,false,true); |
#13
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
funcion recursiva para este codigo | ingabraham | Varios | 11 | 21-06-2011 18:01:07 |
Componente para buscar registros, para no repetir codigo. | flystar | Conexión con bases de datos | 9 | 28-04-2010 23:16:15 |
Existe alguna tecnica para no repetir codigo? | pablopessoa | Varios | 25 | 11-03-2010 00:28:41 |
funcion repetir string | elcigarra | OOP | 2 | 20-03-2009 21:54:53 |
Problemas con la función MCISendString para reproducir/repetir archivos MIDI | Black_Ocean | Internet | 2 | 27-03-2008 21:37:36 |
|