Parametros de From a otro, pero con from ya creado

[Zakio14]

Pura Vida Foro!

Tengo un problema, quiero pasarle un parámetro de un form a otro tengo este ejemplo:


Código Delphi [-]
// Esto lo pongo en un boton en el from1 para llamar el from2
Form2:=TForm2.Create(self);
try
Form2.ShowModal;
finally

Form2.Free;
end;


// Esto lo pongo en el evento FormCreate del From2 para pasarle
el parámetro que esta // en el from1 al from2

procedure TForm2.FormCreate(Sender: TObject);
begin
Label2.Caption:= Form1.Edit1.text;
label6.Caption:= Form1.ComboBox1.Text;
end;

el problema es que este ejemplo toma el parámetro del from1 y
CREA el from2 y le pasa el parámetro en evento FormCreate.
El problema es que yo quiero pasar el parámetro de un From(FrmBusqueda) a otro From(FrmClientes) el From(FrmClientes) YA ESTA CREADO o cargado en memoria o como se quiera decir no he podido hacerlo y agradeceria cualquier opinión Gracias!!!!!


Forma en que llamo a los From Por si preguntan

From(FrmBusqueda)

FrmBusqueda:= TFrmBusqueda.Create(Application);
FrmBusqueda.show; //no uso showModal

From(FrmClientes)
FrmClientes:= TFrmClientes.Create(Application);
FrmClientes.show; //no uso showModal





Desde Costa Rica les Agradece Zakio14. Mil Millones de Gracias!!!!!

[[Fenareth]]

Hola y saludos también a Costa Rica desde México...

Intentaré ayudarte con tu problema, porqué no cambias el código que tienes en el evente OnCreate de tu Form2 al evento OnShow del form...

Aún cuando no entendí al 100% tu post creo que te está generando algún error al momento de correr tu programa ya que intentas usar objetos en un Form que apenas está siendo creado por lo que es mejor que lo pongas en el evento OnShow...

Dime si te ha sido de ayuda o si ando más que perdida con tu problema real entonces explicame de nuevo pero con manzanas y como si tuviera 3 años zaz ?

[jachguate]

Podes accesar directamente por código a la parte pública de un formulario, como a cualquier otra clase:

Código Delphi [-]
  FrmBusqueda:= TFrmBusqueda.Create(Application);
  FrmBusqueda.Edit1.Text := 'Hola, buenos días';
  FrmBusqueda.LabelCliente.Caption := FrmClientes.LabelCliente.Caption;
  FrmBusqueda.show;

Hasta luego.

PD. Te recomiendo aprender a utilizar la etiqueta delphi, que es la que usamos para publicar trozos de código, que como verás, lucen mucho mejor así.

Hasta luego.