[Lazarus-es] forms, cargar datos del form padre desconociendo nombre

[Martin Gomez]

2012/12/3 Paola Bruccoleri <pbruccoleri en adinet.com.uy>

>
>  Pero para levantar los datos que ya tiene el
>> registro antes de abrir el formulario le tenes que pasar/llenar con
>> los datos del registro a mano.
>>
> si, es lo que quiero hacer, pero de antemano no se el nombre del form que
> lo llamó porque no uso el nombre genérico que le da lazarus a cada form


Una forma (quizas poco prolija, por no usar properties) es acceder a los
TEdit desde fuera.

f3 := TCRUDForm.Create(nil)
f3.Edit1.Text := query.FieldByName('campo1').AsString;
f3.Edit2.Text := query.FieldByName('campo2').AsString;
if f3.ShowModal = mrOk then
begin
 // actualizo
 qryUpdate.SQL.Text := 'UPDATE tabla set campo1=' + f3.Edit1.Text;

end;
FreeAndNil(f3);

-- 
Try not to become a man of success but rather to become a man of value. *Albert
Einstein*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20121203/35213416/attachment-0002.html>