<div class="gmail_extra"><br><br><div class="gmail_quote">2012/12/3 Paola Bruccoleri <span dir="ltr"><<a href="mailto:pbruccoleri@adinet.com.uy" target="_blank">pbruccoleri@adinet.com.uy</a>></span><br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<div class="im"><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
Pero para levantar los datos que ya tiene el<br>
registro antes de abrir el formulario le tenes que pasar/llenar con<br>
los datos del registro a mano.<br>
</blockquote></div>
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</blockquote></div><br>Una forma (quizas poco prolija, por no usar properties) es acceder a los TEdit desde fuera.</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">f3 := TCRUDForm.Create(nil)</div><div class="gmail_extra">f3.Edit1.Text := query.FieldByName('campo1').AsString;</div><div class="gmail_extra">f3.Edit2.Text := query.FieldByName('campo2').AsString;<br clear="all">
<div>if f3.ShowModal = mrOk then</div><div>begin</div><div> // actualizo</div><div> qryUpdate.SQL.Text := 'UPDATE tabla set campo1=' + f3.Edit1.Text;</div><div><br></div><div>end;</div><div>FreeAndNil(f3);</div><div>
<br></div>-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div><br>
</div>