FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Preguntita de novato ( un poco rara ) :)
Buenos dias, y feliz año nuevo
Mi pregunta es la siguiente : Como puedo hacer, para simular que el usuario a tocado un boton de MI aplicacion por ejemplo , tengo 2 botones, y 2 labels, Cuando el usuario toca el primer boton en el label 1 pone HOLA. lo q quiero es que al pulsar el boton 2 haga todo el codigo q ponga en el boton 1... No se si me he explicado, espero que si y q me podais ayudar. Un saludo |
#2
|
|||
|
|||
en el evento onclick del botón 2, asignale el mismo evento que tiene el botón 1
|
#3
|
|||
|
|||
Si quieres que el botón 2 haga sólo lo que hace el botón 1, no hace falta que sigas leyendo, la respuesta de Angel es más que válida, pero si quieres que haga lo del botón 1 más otras tareas, te aconsejo este modelo:
Código:
procedure (o function) MiProcedimiento (con parámetros si fueran necesarios); begin // aquí hacer lo del botón 1 end; procedure MiForm.Button1Click(Sender: TObject); begin MiProcedimiento; end; procedure MiForm.Button2Click(Sender: TObject); begin // instrucciones que sean ...... MiProcedimiento; // y más instrucciones si son necesarias ....... end; |
#4
|
|||
|
|||
Ok, graciasi a los dos
me sirve mejor lo de cadetill ya que tiene q hacer varias cosas mas. pero lo de Angel tb es interesante creo q lo utilizare para otra cosa. Muchas gracias a los dos |
#5
|
|||
|
|||
Otra opción que se me acaba de pasar por la cabeza, es utilizar el método de Angel y la variable Sender que se pasa por parámetro para saber desde qué botón ha sido llamado
Código:
procedure MiForm.Button1Click(Sender: TObject); begin if Sender = Button2 then begin // acciones sólo del botón 2 end; // las demás acciones ...... end; |
#6
|
|||
|
|||
Me parece que la pregunta no es para nada rara..
Otra forma más resumida: procedure MiForm.Button1Click(Sender: TObject); begin ......bla bla bla end; procedure MiForm.Button2Click(Sender: TObject); begin Button1Click(Button1); // las demás acciones ...... end; P.D. ¿Donde está el famoso ícono para activar las tabulaciones? |
#7
|
|||
|
|||
Cita:
Por otro lado, el método que propones... no me termina de gustar. Antes lo utilizaba, pero te cuento por qué dejé de hacerlo. Ha veces, por el motivo que sea, borras el código del primer botón (sin pensar que hace referencia otro botón), luego en ejecución te saltará un Access Violation muuy bonito y, puede costarte lo tuyo encontrarlo (y a lo mejor ya ni te acuerdas del código que tenía). Por eso recomiendo el uso de procedures (que para eso están) y el trabajo adicional no es que sea demasiado |
|
|
|