Ver Mensaje Individual
  #3  
Antiguo 10-11-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Si no quieres trabajar con ShowModal por alguna razón extraña, siempre puedes crearte tus propios eventos:

Código Delphi [-]
TElegido = procedure (Cliente:String; Codigo:Integer) of object;

Tform1 = ....
public
   Elegido :TElegido
end;

procedure TForm1.boton1Click;
begin
  if assigned(elegido) then // cuando se pulse el boton lanzamos el evento
    Elegido (edit1.text, spinEdit1.AsInteger);
end;


ahora en Tform2 (el que llamará a Form1)

Tform2 = ...

   private
     procedure ElElegido(Cliente:String; Codigo:Integer);
           // declaramos el procedimiento que recoge el evento de Form1
           // por supuesto tiene que llevar los mismos parámetros; 
           // el nombre le ponemos el que más corage nos dé.

procedure form2Create(..)
begin
  form2 := Tform2.Create(application);
  form2.Elegido := ElElegido // asignamos el evento de Form2 con la rutina 
//                   ElElegido, para que nos llegue a esta última la información
end;

procedure Tform2.ElElegido(Cliente:String; Codigo:Integer);
begin
//  En form2 se pulsó el boton1, y ejecutamos lo que queramos.
  ShowMessage(cliente);
end;

saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita