Pasar información de un form a otro

[davidgaldo]

Hola tengo un dbgrid y al pinchar en una fila quiero que se me abra
otro form y se rellenen unos tedit, como hago para pasar información de un form a otro?

[marcoszorrilla]

Pues es fácil:

Supongamos que los registros proceden de un Ttable, que está en el primero formulario y se llama frFormulario1

MiEdit1.Text:=frFormulario1.Table1MiCampo.Value;

Suponiendo que el campo sea de tipo texto sino habrá que aplicarle la transformación correspondiente.

MiEdit1.Text:=DatetoStr(frFormulario1.Table1MiCampo.Value);

Si la tabla o Query estuviese en un Datamodulo, lo mismo en vez del nombre del formulario pondriamos el nombre del Datamodulo.

Un Saludo.

[maruenda]

mira , yo hago eso pero cuando pulso intro sobre el registro que busco.
en el evento keydown del tdbgrid
IF(INTTOSTR(KEY)='13') THEN // pulsacion de intro
begin
empresabuscada:=strtoint( REJILLAempresas.Fields[0].ASSTRING);

end;

el valor devuelto, empresabuscada, se lo paso al otro form, y con ese valor en un tquery hago una consulta, y obtengo los datos.

[[Lepe]]

Empezado por maruenda

mira , yo hago eso pero cuando pulso intro sobre el registro que busco.
en el evento keydown del tdbgrid
IF(INTTOSTR(KEY)='13') THEN // pulsacion de intro
begin
empresabuscada:=strtoint( REJILLAempresas.Fields[0].ASSTRING);

end;

el valor devuelto, empresabuscada, se lo paso al otro form, y con ese valor en un tquery hago una consulta, y obtengo los datos.

Ya que delphi tiene mapeada con constantes todas las teclas del teclado, podemos poner lo mismo de forma distinta:

 IF key = VK_RETURN THEN // pulsacion de intro

mirar en la ayuda sobre "virtual key code" para un listado de constantes.

Es igual pero no es lo mismo
Saludos.