I create the component dynamically (I do not drop the component onto the form) but if I put the unit "lNetComponents" in the uses I get the run-time error: Project raised exception class 'External: SIGSEGV'. <br>
<br>Why?<br><br> <br><br>This is my code:<br><br><br>{ KOL MCK } // Do not remove this line!<br>{$DEFINE KOL_MCK}<br>{$ifdef FPC} {$mode delphi} {$endif}<br>unit Unit2; <br><br>interface<br><br>uses Windows, Messages, KOL, lNetComponents {place your units here->}<br>
{$IFDEF LAZIDE_MCK}, Forms, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics;<br>{$ELSE} ; {$ENDIF}<br><br>type<br><br> { TForm2 }<br><br> {$I MCKfakeClasses.inc}<br> {$IFDEF KOLCLASSES} TForm2 = class; PForm2 = TForm2; {$ELSE OBJECTS} PForm2 = ^TForm2; {$ENDIF CLASSES/OBJECTS}<br>
TForm2 = {$IFDEF KOLCLASSES}class{$ELSE}object{$ENDIF}({$IFDEF LAZIDE_MCK}TForm{$ELSE}TObj{$ENDIF})<br> Button1: TKOLButton;<br> Form: PControl;<br> KOLForm1: TKOLForm;<br> procedure Button1Click(Sender: PObj);<br> private<br>
{ private declarations }<br> LTCPComponent1: TLTCPComponent;<br> public<br> { public declarations }<br> end; <br><br>var<br> Form2 {$IFDEF KOL_MCK} : PForm2 {$ELSE} : TForm2 {$ENDIF} ;<br><br><br><div class="gmail_quote">
2008/11/11 Kutlay Ozger <span dir="ltr"><<a href="mailto:kutlayozger@gmail.com">kutlayozger@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
You must create components dynamically. <br>It works like this.<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> LTCPComponent1:=TLTCPComponent.Create(nil);<br>end;<br><br>Do not add component on form.<br>
<br><br><div class="gmail_quote">2008/11/11 Usuario Anónimo <span dir="ltr"><<a href="mailto:usuarioanonimomysql@gmail.com" target="_blank">usuarioanonimomysql@gmail.com</a>></span><div><div class="Wj3C7c"><br><blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">
If I put the unit lNetComponents in the uses onto KOL-CE application I get the run-time error: Project raised exception class 'External: SIGSEGV'. <br><br>Why?<br><p> </p><p>This is my code:</p><p>{ KOL MCK } // Do not remove this line!<br>
{$DEFINE KOL_MCK}<br>{$ifdef FPC} {$mode delphi} {$endif}<br>unit Unit2; <br><br>interface<br><br>uses Windows, Messages, KOL, lNetComponents {place your units here->}<br>{$IFDEF LAZIDE_MCK}, Forms, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics;<br>
{$ELSE} ; {$ENDIF}<br><br>type<br><br> { TForm2 }<br><br> {$I MCKfakeClasses.inc}<br> {$IFDEF KOLCLASSES} TForm2 = class; PForm2 = TForm2; {$ELSE OBJECTS} PForm2 = ^TForm2; {$ENDIF CLASSES/OBJECTS}<br> TForm2 = {$IFDEF KOLCLASSES}class{$ELSE}object{$ENDIF}({$IFDEF LAZIDE_MCK}TForm{$ELSE}TObj{$ENDIF})<br>
Button1: TKOLButton;<br> Form: PControl;<br> KOLForm1: TKOLForm;<br> procedure Button1Click(Sender: PObj);<br> private<br> { private declarations }<br> LTCPComponent1: TLTCPComponent;<br> public<br> { public declarations }<br>
end; <br><br>var<br> Form2 {$IFDEF KOL_MCK} : PForm2 {$ELSE} : TForm2 {$ENDIF} ;<br><br></p><p>Thank you very much, best regards.<br></p><br><div class="gmail_quote">2008/11/11 Ale¹ Katona <span dir="ltr"><<a href="mailto:almindor@gmail.com" target="_blank">almindor@gmail.com</a>></span><div>
<div><br>
<blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">lNet non-visual can indeed be used anywhere BUT you need to understand the concept of .CallAction (see docs at <a href="http://members.chello.sk/ales/docs" target="_blank">http://members.chello.sk/ales/docs</a> and homepage at <a href="http://lnet.wordpress.com" target="_blank">http://lnet.wordpress.com</a>) and that you'll need to integrate it into the main loop somehow (either directly, or if you're using some sort of widgetset then it might be possible to use that, but that's a bit more complicated).<br>
<font color="#888888"><br>
--<br>
Ale¹ Katona <<a href="mailto:almindor@gmail.com" target="_blank">almindor@gmail.com</a>><br>
</font><div><div><br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lazarus.freepascal.org" target="_blank">Lazarus@lazarus.freepascal.org</a><br>
<a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
</div></div></blockquote></div></div></div><br>
<br>_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lazarus.freepascal.org" target="_blank">Lazarus@lazarus.freepascal.org</a><br>
<a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
<br></blockquote></div></div></div><font color="#888888"><br><br clear="all"><br>-- <br>Kutlay Özger<br>
</font><br>_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lazarus.freepascal.org">Lazarus@lazarus.freepascal.org</a><br>
<a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
<br></blockquote></div><br>