<div dir="auto">Por la forma que creas los forms, no se inicializan las variables form2 y form3. Usa el procedimiento de applicaton para crearlos.</div><div class="gmail_extra"><br><div class="gmail_quote">El 24 may. 2017 8:50 p. m., "Ismael L. Donis Garcia via Lazarus-es" <<a href="mailto:lazarus-es@lists.lazarus-ide.org">lazarus-es@lists.lazarus-ide.org</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><u></u>
<div bgcolor="#ffffff">
<div><font face="Arial" size="2">Si existe el problema ocurre cuando desde un
formlario llamo a otro con Showmodal y ese otro llama a otro con Showmodal
también</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Cuando desde el último llamado quiero coger un
valor del anterior me da el error.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Osea</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"> Application.Initialize;<br>
Application.CreateForm(TForm1, Form1);<br>
Application.Run;<br></font></div>
<div><font face="Arial" size="2">Desde TForm1</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Form2.Showmodal;</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">y desde Form2</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">
<div><font face="Arial" size="2">Form3.Showmodal;</font></div>
<div> </div>
<div>Ahora si en <font face="Arial" size="2">Form3 pregunto por
ejemplo:</font></div>
<div> </div>
<div>if form2.edit1.text = 'xx' then // aqui suena el error</div></font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Prueba creando un proyecto con 3
formularios:</font></div>
<div><font face="Arial" size="2">Pon en el primero:</font></div>
<div><font face="Arial" size="2">--------</font></div>
<div><font face="Arial" size="2">unit Unit1;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font face="Arial" size="2">interface</font></div>
<div> </div>
<div><font face="Arial" size="2">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font face="Arial" size="2">type</font></div>
<div> </div>
<div><font face="Arial" size="2"> { TForm1 }</font></div>
<div> </div>
<div><font face="Arial" size="2"> TForm1 = class(TForm)<br>
Button1: TButton;<br> procedure Button1Click(Sender:
TObject);<br> private<br> { private declarations
}<br> public<br> { public declarations }<br>
end;</font></div>
<div> </div>
<div><font face="Arial" size="2">var<br> Form1: TForm1;</font></div>
<div> </div>
<div><font face="Arial" size="2">implementation<br>uses<br>
Unit2;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$R *.lfm}</font></div>
<div> </div>
<div><font face="Arial" size="2">{ TForm1 }</font></div>
<div> </div>
<div><font face="Arial" size="2">procedure TForm1.Button1Click(Sender:
TObject);<br>begin<br> with TForm2.Create(nil)
do<br> try<br>
Showmodal;<br> finally<br>
Free;<br> end;<br>end;</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">end.
</font></div>
<div><font face="Arial" size="2">
<div><font face="Arial" size="2">--------</font></div></font><font face="Arial" size="2"></font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">
<div><font face="Arial" size="2">Pon en el segundo:</font></div>
<div><font face="Arial" size="2">--------</font></div>
<div><font face="Arial" size="2">unit Unit2;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font face="Arial" size="2">interface</font></div>
<div> </div>
<div><font face="Arial" size="2">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font face="Arial" size="2">type</font></div>
<div> </div>
<div><font face="Arial" size="2"> { TForm2 }</font></div>
<div> </div>
<div><font face="Arial" size="2"> TForm2 = class(TForm)<br>
Button1: TButton;<br> Edit1: TEdit;<br>
procedure Button1Click(Sender: TObject);<br> private<br>
{ private declarations }<br> public<br> { public
declarations }<br> end;</font></div>
<div> </div>
<div><font face="Arial" size="2">var<br> Form2: TForm2;</font></div>
<div> </div>
<div><font face="Arial" size="2">implementation<br>uses<br>
Unit3;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$R *.lfm}</font></div>
<div> </div>
<div><font face="Arial" size="2">{ TForm2 }</font></div>
<div> </div>
<div><font face="Arial" size="2">procedure TForm2.Button1Click(Sender:
TObject);<br>begin<br> with TForm3.Create(nil)
do<br> try<br>
Showmodal;<br> finally<br>
Free;<br> end;<br>end;</font></div>
<div> </div>
<div><font face="Arial" size="2">end.<br></font><font face="Arial" size="2"><font face="Arial" size="2">--------</font></font></div></font><font face="Arial" size="2"></font></div>
<div><font face="Arial" size="2">
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Pon en el tercero:</font></div>
<div><font face="Arial" size="2">--------</font></div>
<div><font face="Arial" size="2">unit Unit3;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font face="Arial" size="2">interface</font></div>
<div> </div>
<div><font face="Arial" size="2">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font face="Arial" size="2">type</font></div>
<div> </div>
<div><font face="Arial" size="2"> { TForm3 }</font></div>
<div> </div>
<div><font face="Arial" size="2"> TForm3 = class(TForm)<br>
Button1: TButton;<br> procedure Button1Click(Sender:
TObject);<br> private<br> { private declarations
}<br> bvalida: boolean;<br> public<br>
{ public declarations }<br> end;</font></div>
<div> </div>
<div><font face="Arial" size="2">var<br> Form3: TForm3;</font></div>
<div> </div>
<div><font face="Arial" size="2">implementation<br>uses<br>
Unit2;</font></div>
<div> </div>
<div><font face="Arial" size="2">{$R *.lfm}</font></div>
<div> </div>
<div><font face="Arial" size="2">{ TForm3 }</font></div>
<div> </div>
<div><font face="Arial" size="2">procedure TForm3.Button1Click(Sender:
TObject);<br>begin<br> if Form2.Edit1.Text='xx' then<br>
bvalida:=true;</font></div>
<div> </div>
<div><font face="Arial" size="2">end;</font></div>
<div> </div>
<div><font face="Arial" size="2">end. </font></div>
<div><font face="Arial" size="2">
<div><font face="Arial" size="2">--------</font></div>
<div> </div></font><font face="Arial" size="2"></font></div></font></div>
<div>
<div>Saludos Cordiales</div>
<div>========<br>| ISMAEL |<br>========<br><font face="Arial" size="2">Devuan User :
<a href="http://distrowatch.com/table.php?distribution=devuan" target="_blank">http://distrowatch.com/table.p<wbr>hp?distribution=devuan</a></font></div>
<div>WebSite: <a href="http://distrowatch.com/table.php?distribution=devuan" target="_blank"><font face="Arial" size="2"></font></a><font face="Arial" size="2"><a href="http://sisconge.byethost15.com" target="_blank">http://</a></font><a href="http://sisconge.byethost15.com" target="_blank">sisconge.byethost15.com</a></div></div>
<blockquote style="PADDING-RIGHT:0px;PADDING-LEFT:5px;MARGIN-LEFT:5px;BORDER-LEFT:#000000 2px solid;MARGIN-RIGHT:0px">
<div style="FONT:10pt arial">----- Original Message ----- </div>
<div style="BACKGROUND:#e4e4e4;FONT:10pt arial"><b>From:</b>
<a title="lazarus-es@lists.lazarus-ide.org" href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">Maxi via Lazarus-es</a> </div>
<div style="FONT:10pt arial"><b>To:</b> <a title="lazarus-es@lists.lazarus-ide.org" href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">Spanish version of Lazarus
List</a> </div>
<div style="FONT:10pt arial"><b>Cc:</b> <a title="maximiliano.duarte@gmail.com" href="mailto:maximiliano.duarte@gmail.com" target="_blank">Maxi</a> </div>
<div style="FONT:10pt arial"><b>Sent:</b> Wednesday, May 24, 2017 1:29
PM</div>
<div style="FONT:10pt arial"><b>Subject:</b> Re: [Lazarus-es] Error External
SIGSEGV al asignar valor depropiedad</div>
<div><br></div>
<div dir="ltr">
<div>El objeto ya no existe le hiciste free.<br></div>Despues del
showmodal<br></div>
<div class="gmail_extra"><br>
<div class="gmail_quote">El 23 de mayo de 2017, 13:23, Ismael L. Donis Garcia
via Lazarus-es <span dir="ltr"><<a href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">lazarus-es@lists.lazarus-ide.<wbr>org</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT:1ex;MARGIN:0px 0px 0px 0.8ex;BORDER-LEFT:#ccc 1px solid"><u></u>
<div bgcolor="#ffffff">
<div><font face="Arial" size="2">Tengo un formulario que tiene una propiedad
pública:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">public<br> { public declarations
}<br> property salvar: boolean write setsalvar;<br></font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">procedure Tfrecep.setsalvar(AValue:
boolean);<br>begin<br> bvalida:=AValue;<br>end;</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">El cual llama otro formulario de la siguiente
forma:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"> with
Tfimprec.Create(nil) do<br>
try<br>
asignarnum:=strtoint(snorec);<br>
entidad:=sentidad;<br>
Showmodal;<br>
finally<br>
Free;<br> end;<br></font></div>
<div><font face="Arial" size="2">Cuando desde el formalario Tfimprec trato de
asignarle un valor a la propiedad salvar me da dicho error el cual no
encuentro la posible causa.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">procedure Tfimprec.cmdcerrarClick(Sender<wbr>:
TObject);<br>begin<br> frecep.salvar:=true;<br>
Self.Close;<br>end; </font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Al alguien de ustedes le ha pasado esto? En
caso afirmativo como lo han solucionado?</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Desde ya Gracias</font></div>
<div>
<div><a href="http://sisconge.byethost15.com" target="_blank"></a></div><font face="Arial" size="2"></font><br>______________________________<wbr>_________________<br>Lazarus-es
mailing list<br><a href="mailto:Lazarus-es@lists.lazarus-ide.org" target="_blank">Lazarus-es@lists.lazarus-ide.o<wbr>rg</a><br><a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/l<wbr>istinfo/lazarus-es</a><br><br></div></div></blockquote></div><br><br clear="all"><br>-- <br>
<div class="m_8999684082491962090gmail_signature" data-smartmail="gmail_signature">El que pregunta
aprende, y el que contesta aprende a responder.<br><br>No a la obsolecencia
programada: <a href="http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml" target="_blank">http://www.rtve.es/noticias/<wbr>20110104/productos-consumo-<wbr>duran-cada-vez-menos/392498.<wbr>shtml</a><br><br>Linux
User #495070<br><a href="http://domonetic.com/blog" target="_blank">http://domonetic.com/blog</a></div></div>
<p>
<hr>
<p></p>______________________________<wbr>_________________<br>Lazarus-es mailing
list<br><a href="mailto:Lazarus-es@lists.lazarus-ide.org" target="_blank">Lazarus-es@lists.lazarus-ide.<wbr>org</a><br><a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" target="_blank">http://lists.lazarus-ide.org/<wbr>listinfo/lazarus-es</a><br></p></blockquote></div>
<br>______________________________<wbr>_________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org">Lazarus-es@lists.lazarus-ide.<wbr>org</a><br>
<a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/<wbr>listinfo/lazarus-es</a><br>
<br></blockquote></div></div>