procedure TfrmPaciente.SetAgregar(Value: Boolean);<br>
begin<br>
    if Value <> FAgregar then<br>
         FAgregar := Value ;<br>
end;   <br><br><div class="gmail_quote">El 12 de noviembre de 2009 23:45, Paola Bruccoleri <span dir="ltr"><<a href="mailto:pbruccoleri@adinet.com.uy">pbruccoleri@adinet.com.uy</a>></span> escribió:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hola..<br>
quiero abrir un form con unos datos u otros segun sea el valor de una variable.<br>
El asunto es que tengo en un grid una lista de personas. Al hacer doble clic quiero editar sus datos y al apretar otro botón, agregar. Muy simple, lo mismo de siempre. Como no voy a usar por ahora los controles enlazados hasta no actualizar el lazarus y ver que pasa, pensaba usar los dichosos Tedit, etc. y los cargo a mano segun sea la cosa.<br>

No quiero usar una variable global que me indique lo que hacer , pensaba usar una propiedad de la clase de ese form, pero hay algo que no me está saliendo.<br>
<br>
En el form1 puse:<br>
  private<br>
   { private declarations }<br>
   FAgregar: Boolean;<br>
   procedure SetAgregar (Value: boolean);<br>
 public<br>
   { public declarations }<br>
   Property Agregar: boolean read FAgregar write SetAgregar;      <br>
......<br>
procedure TfrmPaciente.SetAgregar(Value: Boolean);<br>
begin<br>
    if Value <> FAgregar then<br>
         Value := FAgregar;<br>
end;   <br>
<br>
<br>
cuando en el grid, que esta en otro form, quiero agregar un registro:<br>
     f:= TfrmPaciente.Create(Self);<br>
     f.Agregar:= true;<br>
     try<br>
         f.ShowModal;<br>
     finally<br>
         FreeAndNil(f);<br>
     end;<br>
<br>
Ahora, volviendo al form1...<br>
en el show del form1 puse un showmessage para ver el valor que viene con agregar, y siempre me da false o 0 y cuando agrego, deberia devolver 1.<br>
hice estas pruebas:<br>
ShowMessage('tipo:'+BoolToStr(FAgregar));<br>
ShowMessage('tipo:'+BoolToStr(self.Agregar));<br>
<br>
evidentemente se me están enredando los cables...<br>
me ayudan??<br>
chauuuuuuuuuuuuu<br>
<br>
<br>
<br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Carlos Germán Tejero<br>