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? |
|
|
|