Ver Mensaje Individual
  #2  
Antiguo 27-10-2004
Avatar de Trigger
Trigger Trigger is offline
Miembro
 
Registrado: nov 2003
Ubicación: Barranquilla (Colombia)
Posts: 79
Reputación: 21
Trigger Va por buen camino
Saludos

Me imagino que en los eventos de Boton2 y Boton3 de onclick, le asignas boton1.onclick, bueno entonces tienes que hacer lo siguiente

Código:
procedure TForm1.Boton1Click(Sender: TObject);
begin
  if Sender = Boton1 then
  begin	  
    query1.Insert;
    showmessage('1');
  end;
  if Sender = Boton2 then
  begin	  
    query2.Insert;
    showmessage('2');
  end;
  if Sender = Boton3 then
  begin	  
    query3.Insert;
    showmessage('3');
  end;

end;
Tambien puedes declarar un evento general no necesariamente tiene que estar asociado a ningun objeto, y se lo puedes asignar a los tres botones

OK
__________________
Trigger

Última edición por Trigger fecha: 27-10-2004 a las 19:11:09.
Responder Con Cita