traslado de informacion entre form

[ecfisa]

Hola.

Otra opción, aunque un poco más complicada, puede ser:

Form1:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
    Edit1: TEdit;
    Edit2: TEdit;
  private
    procedure MsgHoraSalida(var Msg: TMessage); message WM_USER + 300;
    procedure MsgHoraLlegada(var Msg: TMessage); message WM_USER + 301;
  public
  end;
....
implementation

uses Unit2;

procedure TForm1.MsgHoraSalida(var Msg: TMessage);
begin
  Edit1.Text:= PChar(Msg.LParam);
end;

procedure TForm1.MsgHoraLlegada(var Msg: TMessage);
begin
  Edit2.Text:= PChar(Msg.LParam);
end;
...

Form2:

Código Delphi [-]
...
implementation

procedure TForm2.RadioButton1Click(Sender: TObject);
var
  Salida,LLegada: string;
begin
  Salida:= '15:03:00';      // o convertir: TimeToStr(tu_hora_salida);...
  LLegada:= '15:30:12';   
  SendMessage(FindWindow(nil, 'Form1'), WM_USER+300, 0, DWORD(PChar(Salida)));
  SendMessage(FindWindow(nil, 'Form1'), WM_USER+301, 0, DWORD(PChar(LLegada)));
end;
...

Lo bueno es que en Form1 se ven reflejados los resultados inmediatamente.

Saludos.