![]() |
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 |
en el evento onclick del botón 2, asignale el mismo evento que tiene el botón 1
|
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); |
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 :) |
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); |
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? |
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 ;) |
La franja horaria es GMT +2. Ahora son las 04:09:31. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi