Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2004
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 12-01-2004
Angel Angel is offline
Miembro
 
Registrado: may 2003
Ubicación: Alicante, España
Posts: 58
Poder: 21
Angel Va por buen camino
en el evento onclick del botón 2, asignale el mismo evento que tiene el botón 1
Responder Con Cita
  #3  
Antiguo 12-01-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 25
__cadetill Va por buen camino
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;
Espero te sirva
Responder Con Cita
  #4  
Antiguo 12-01-2004
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 12-01-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 25
__cadetill Va por buen camino
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;
Responder Con Cita
  #6  
Antiguo 25-01-2004
Amilius Amilius is offline
No confirmado
 
Registrado: ene 2004
Posts: 138
Poder: 0
Amilius Va por buen camino
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?
Responder Con Cita
  #7  
Antiguo 26-01-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 25
__cadetill Va por buen camino
Cita:
Empezado por Amilius
P.D. ¿Donde está el famoso ícono para activar las tabulaciones?
Es la etiqueta [ code ] [ /code ] (sin los espacios) y la imagen es la del #

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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:16:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi