traslado de informacion entre form

[rogercito]

el tuyo funciona de 10 ; y el mio no , en breve te aviso si logre los resultados esperados
gracias

[roman]

Hola,

No es mi ánimo demeritar ninguna solución, pero he de comentar que la solución planteada por ecfisa no me parece adecuada.

Cuando una ventana A hace uso de una ventana B para obtener cierta información (en este caso las horas de llegada y salida), la ventana B debería ser ignorante de la ventana A. Esto proporciona una independencia total y permite el reuso en otras partes, además de poderse modificar sin afectar a quienes la usan.

Piensen, por ejemplo, en un cuadro de diálogo para abrir un archivo (un OpenFileDialog). Una ventana puede hacer uso de él para obtener el nombre de un archivo, pero el cuadro de diálogo en sí, no tiene conocimiento alguno de nuestra ventana.

En la técnica propuesta, hay un conocimiento implícito de la ventana A desde el momento en que se usa el nombre de ella para lanzar el mensaje de actualización.

Si se quiere una actualización instantánea hay otras maneras de lograrla sin perder la independencia de la ventana que provee el servicio, por ejemplo, mediante el usao de eventos:

Código Delphi [-]
THoraChange = procedure(Sender: TObject; NuevaHora: TTime) of object;

TForm2 = class(TForm)
private
  FOnHoraLlegadaChange: THoraChange;
  FOnHoraSalidaChange: THoraChange;

public
  property OnHoraLlegadaChange: THoraChange
    read FOnHoraLlegadaChange write FOnHoraLlegadaChange;

  property OnHoraSalidaChange: THoraChange
    read FOnHoraSalidaChange write FOnHoraSalidaChange;

En el evento OnChange del RadioButton:

Código Delphi [-]
if Assigned(FOnHoraLlegada) then
  FOnHoraLlegada(Self, LaHoraQueCorresponda)

if Assigned(FOnHoraSalida) then
  FOnHoraSalida(Self, LaHoraQueCorresponda)

El formulario que llama, se suscribe al evento al momento de abrir la ventana:

Código Delphi [-]
Form2.OnHoraLlegadaChange := HoraLlegadaChange;
Form2.OnHoraSalidaChange := HoraSalidaChange;

if Form2.ShowModal = mrOk then
  ...

donde HoraLlegadaChange y HoraSalidaChange son métodos declarados en Form1, del tipo THoraChange. Así, por ejemplo:

Código Delphi [-]
procedure TForm1.HoraLLegadaChange(Sender: TObject; NuevaHora: TTime);
begin
  EditHoraLlegada.Text := TimeToStr(NuevaHora);
end;

// Saludos

[[Delphius]]

Para hacerla corta roman, una versión simplificada de un Observador
A mi me gusta esa idea

Saludos,

[roman]

Sí. Aunque no es propiamente un observador porque sólo hay un posible suscriptor; pero es el mecanismo que usa Delphi en los eventos.

Un comportamiento más cercano al patrón observador sería el de un DataSource, que notifica a todos los controles conectados a él, los cambios en el DataSet.

// Saludos

[[Delphius]]

Empezado por roman

Sí. Aunque no es propiamente un observador porque sólo hay un posible suscriptor; pero es el mecanismo que usa Delphi en los eventos.

Un comportamiento más cercano al patrón observador sería el de un DataSource, que notifica a todos los controles conectados a él, los cambios en el DataSet.

// Saludos

Lo se bien amigo. Por eso mismo había dicho: "versión simplificada".

Saludos,

[roman]

¡Ah! Mea culpa, no había caido en la cuenta del simplificada.

// Saludos

[[oscarac]]

no es por meter mi cuchara, pero si bien es cierto se le puede dar una respuesta, en esta se deberia incluir una breve explicacion del porque, como, cuando y demas.... acciones o metodos o procedimientos estan involucrados y cual es su funcion....

Código Delphi [-]
 
THoraChange = procedure(Sender: TObject; NuevaHora: TTime) of object;

por dar un ejemplo....
con esta declaracion haces que THoraChange.............

de paso que YO tambien podria aprender de que se trata

[[Delphius]]

Empezado por roman

¡Ah! Mea culpa, no había caido en la cuenta del simplificada.

// Saludos

No problem. No hace falta hecharse culpas. Lo importante es que el concepto se entienda.
De todas formas, sean muchos, pocos o un sólo suscriptor, lo que es de interés es que un objeto "avisa" a los interesados de que algo ha sucedido o cambiado. Y ellos ya verán como se las arreglan.

Yo me lo imagino como el juego del escondite o escondidas, El que busca pega el grito y los demás ¡a correr a salvarse, como les convenga o les salga del alma! O hasta si quieren... obviar el aviso. (aunque allí termina la analogía)
Ha... que bonito sería volver a recordar esos momentos de niñez.

Saludos,