Ver Mensaje Individual
  #6  
Antiguo 07-09-2011
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Yo lo vería de la siguiente manera:

Form2 es un formulario que sirve para escoger dos valores: HoraLlegada y HoraSalida. Entonces coloca dos propiedades para ello:

Código Delphi [-]
TForm1 = class
private
  FHoraLlegada, FHoraSalida: TTime;

public
  property HoraLlegada: TTimea read FHoraLlegada write FHoraLlegada;
  property HoraSalida: TTime read FHoraSalida write FHoraSalida;
end;

Estos valores los puede (opcionalmente) inicializar Form1 al momento de abrir Form2:

Código Delphi [-]
Form2.HoraLlegada := ...;
Form2.HoraSalida := ...;

if Form2.ShowModal = mrOk then
begin
  ...
end;

Claro está, que Form1 debe incluir en el uses la unidad de Form2.

Cuando Form2 se muestra, en el evento OnShow asignas los valores que tengan HoraLlegada y HoraSalida a los controles que tengas en Form2, si viene al caso y de acuerdo al valor por defecto que tenga el RadioButton.

Ahora, en el evento OnChange del RadioButton te fijas cuál item se escoge, y con base en ello, asignas los valores que corresponda a tus propiedades HoraLlegada y HoraSalida.

De esta manera, cuando regresas del ShowModal, Form2.HoraLlegada y
Form2.HoraSalida tendrán ya los valores adecuados.

// Saludos
Responder Con Cita