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: 22
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
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 21:06:29.


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