<div dir="ltr"><div>Pero para poder llamar al form 2 debes crear primero, pero se quedaria atascado haste que termine el showmodal.<br></div>Y al salir ya el objeto no existe. si quieres ese comportamiento deben estar creados antes de intentar acceder a alguna propiedad.<br><br><br></div><div class="gmail_extra"><br><div class="gmail_quote">El 24 de mayo de 2017, 15:51, 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.org</a>></span> escribió:<br><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 size="2" face="Arial">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 size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Cuando desde el último llamado quiero coger un
valor del anterior me da el error.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Osea</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"> Application.Initialize;<br>
Application.CreateForm(TForm1, Form1);<br>
Application.Run;<br></font></div>
<div><font size="2" face="Arial">Desde TForm1</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Form2.Showmodal;</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">y desde Form2</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">Form3.Showmodal;</font></div>
<div> </div>
<div>Ahora si en <font size="2" face="Arial">Form3 pregunto por
ejemplo:</font></div>
<div> </div>
<div>if form2.edit1.text = 'xx' then // aqui suena el error</div></font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Prueba creando un proyecto con 3
formularios:</font></div>
<div><font size="2" face="Arial">Pon en el primero:</font></div>
<div><font size="2" face="Arial">--------</font></div>
<div><font size="2" face="Arial">unit Unit1;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font size="2" face="Arial">interface</font></div>
<div> </div>
<div><font size="2" face="Arial">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font size="2" face="Arial">type</font></div>
<div> </div>
<div><font size="2" face="Arial"> { TForm1 }</font></div>
<div> </div>
<div><font size="2" face="Arial"> 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 size="2" face="Arial">var<br> Form1: TForm1;</font></div>
<div> </div>
<div><font size="2" face="Arial">implementation<br>uses<br>
Unit2;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$R *.lfm}</font></div>
<div> </div>
<div><font size="2" face="Arial">{ TForm1 }</font></div>
<div> </div>
<div><font size="2" face="Arial">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 size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">end.
</font></div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">--------</font></div></font><font size="2" face="Arial"></font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">Pon en el segundo:</font></div>
<div><font size="2" face="Arial">--------</font></div>
<div><font size="2" face="Arial">unit Unit2;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font size="2" face="Arial">interface</font></div>
<div> </div>
<div><font size="2" face="Arial">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font size="2" face="Arial">type</font></div>
<div> </div>
<div><font size="2" face="Arial"> { TForm2 }</font></div>
<div> </div>
<div><font size="2" face="Arial"> 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 size="2" face="Arial">var<br> Form2: TForm2;</font></div>
<div> </div>
<div><font size="2" face="Arial">implementation<br>uses<br>
Unit3;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$R *.lfm}</font></div>
<div> </div>
<div><font size="2" face="Arial">{ TForm2 }</font></div>
<div> </div>
<div><font size="2" face="Arial">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 size="2" face="Arial">end.<br></font><font size="2" face="Arial"><font size="2" face="Arial">--------</font></font></div></font><font size="2" face="Arial"></font></div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Pon en el tercero:</font></div>
<div><font size="2" face="Arial">--------</font></div>
<div><font size="2" face="Arial">unit Unit3;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$mode objfpc}{$H+}</font></div>
<div> </div>
<div><font size="2" face="Arial">interface</font></div>
<div> </div>
<div><font size="2" face="Arial">uses<br> Classes, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, StdCtrls;</font></div>
<div> </div>
<div><font size="2" face="Arial">type</font></div>
<div> </div>
<div><font size="2" face="Arial"> { TForm3 }</font></div>
<div> </div>
<div><font size="2" face="Arial"> 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 size="2" face="Arial">var<br> Form3: TForm3;</font></div>
<div> </div>
<div><font size="2" face="Arial">implementation<br>uses<br>
Unit2;</font></div>
<div> </div>
<div><font size="2" face="Arial">{$R *.lfm}</font></div>
<div> </div>
<div><font size="2" face="Arial">{ TForm3 }</font></div>
<div> </div>
<div><font size="2" face="Arial">procedure TForm3.Button1Click(Sender:
TObject);<br>begin<br> if Form2.Edit1.Text='xx' then<br>
bvalida:=true;</font></div>
<div> </div>
<div><font size="2" face="Arial">end;</font></div>
<div> </div>
<div><font size="2" face="Arial">end. </font></div>
<div><font size="2" face="Arial">
<div><font size="2" face="Arial">--------</font></div>
<div> </div></font><font size="2" face="Arial"></font></div></font></div>
<div>
<div>Saludos Cordiales</div><span class="">
<div>========<br>| ISMAEL |<br>========<br><font size="2" face="Arial">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 size="2" face="Arial"></font></a><font size="2" face="Arial"><a href="http://sisconge.byethost15.com" target="_blank">http://</a></font><a href="http://sisconge.byethost15.com" target="_blank">sisconge.byethost15.com</a></div></span></div>
<blockquote style="PADDING-RIGHT:0px;PADDING-LEFT:5px;MARGIN-LEFT:5px;BORDER-LEFT:#000000 2px solid;MARGIN-RIGHT:0px"><div><div class="h5">
<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></div><div class="gmail_extra"><br>
<div class="gmail_quote"><div><div class="h5">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>
</div></div><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><div class="h5">
<div><font size="2" face="Arial">Tengo un formulario que tiene una propiedad
pública:</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">public<br> { public declarations
}<br> property salvar: boolean write setsalvar;<br></font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">procedure Tfrecep.setsalvar(AValue:
boolean);<br>begin<br> bvalida:=AValue;<br>end;</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">El cual llama otro formulario de la siguiente
forma:</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"> 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 size="2" face="Arial">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 size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">procedure Tfimprec.cmdcerrarClick(Sender<wbr>:
TObject);<br>begin<br> frecep.salvar:=true;<br>
Self.Close;<br>end; </font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Al alguien de ustedes le ha pasado esto? En
caso afirmativo como lo han solucionado?</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Desde ya Gracias</font></div>
</div></div><div>
<div><a href="http://sisconge.byethost15.com" target="_blank"></a></div><font size="2" face="Arial"></font><br><span class="">______________________________<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></span></div></div></blockquote></div><span class=""><br><br clear="all"><br>-- <br>
<div class="m_7584266261379033311gmail_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></span></div>
<p>
</p><hr><span class="">
<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></span><p></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><br><br clear="all"><br>-- <br><div class="gmail_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/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml</a><br><br>Linux User #495070<br><a href="http://domonetic.com/blog" target="_blank">http://domonetic.com/blog</a></div>
</div>