<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Si quiero que se quede como tu dices atascado hasta
que termine el Showmodal</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Y tu dices que no lo creo?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>No se crea cuando digo:</FONT></DIV>
<DIV><FONT face=Arial size=2>TForm2.Create(nil)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Si no se crea como es que se muestra?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>De algo si tienes razón Ivan y es algo que no
entiendo. Si alguien me lo pudiera explicar más. Ya que yo nunca he trabajado
con delphi y soy bastante nuevo en Lazarus</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>De la siguiente forma no da error:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> Application.CreateForm(TForm2,
Form2);<BR> with Form2 do<BR> try<BR>
Showmodal;<BR> finally<BR> Free;<BR>
end;<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Y sin envargo de la siguiente forma si da
error:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>with TForm2.Create(nil)
do<BR> try<BR>
Showmodal;<BR> finally<BR>
Free;<BR> end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV>Saludos Reiterados</DIV><SPAN class="">
<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> </DIV></SPAN></FONT></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; font-color: black"><B>From:</B>
<A title=lazarus-es@lists.lazarus-ide.org
href="mailto:lazarus-es@lists.lazarus-ide.org">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">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">Maxi</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, May 24, 2017 3:20
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>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="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>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><SPAN class="">
<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></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 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>
<DIV>
<DIV><A href="http://sisconge.byethost15.com"
target=_blank></A></DIV><FONT face=Arial size=2></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" target=_blank
rel=noreferrer>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" target=_blank
rel=noreferrer>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>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus-ide.org<BR>http://lists.lazarus-ide.org/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>