<!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 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></DIV></FONT><FONT face=Arial
size=2></FONT></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.<WBR>php?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://</FONT><A
href="http://sisconge.byethost15.com">sisconge.byethost15.com</A></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; 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 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.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(<WBR>Sender:
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"></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">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></DIV></DIV></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>