<p>Hi again, I solved the problem. </p><p>The problem was that the status bar was located at the top, I put the status bar at the bottom and now the project runs correctly.<br></p><br><div class="gmail_quote">2008/12/14 User <span dir="ltr"><<a href="mailto:usuarioanonimomysql@gmail.com">usuarioanonimomysql@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><p>If I use inheritance of forms under WinCE I can not view correctly the application and it do not work correctly, is it not possible to use inheritance of forms under WinCE.<br>
</p><p>My application:</p><p>unit Unit1; <br>
<br>{$mode objfpc}{$H+}<br><br>interface<br><br>uses<br> Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,<br> ComCtrls;<br><br>type<br><br> { TFormCustom }<br><br> TFormCustom = class(TForm)<br>
StatusBar1: TStatusBar;<br> private<br> { private declarations }<br> public<br> { public declarations }<br> end; <br><br>var<br> FormCustom: TFormCustom;<br><br>implementation<br><br>initialization<br> {$I unit1.lrs}<br>
<br>end.<br></p><p>unit Unit2; <br><br>{$mode objfpc}{$H+}<br><br>interface<br><br>uses<br> Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Unit1,<br> StdCtrls;<br><br>type<br><br> { TForm1 }<br>
<br> TForm1 = class(TFormCustom)<br> Label1: TLabel;<br> private<br> { private declarations }<br> public<br> { public declarations }<br> end; <br><br>var<br> Form1: TForm1; <br><br>implementation<br><br>initialization<br>
{$I unit2.lrs}<br><br>end.<br></p><p>program project1;<br><br>{$mode objfpc}{$H+}<br><br>uses<br> {$IFDEF UNIX}{$IFDEF UseCThreads}<br> cthreads,<br> {$ENDIF}{$ENDIF}<br> Interfaces, // this includes the LCL widgetset<br>
Forms<br> { you can add units after this }, Unit1, Unit2;<br><br>begin<br> Application.Initialize;<br> Application.CreateForm(TForm1, Form1);<br> Application.Run;<br>end. <br><br></p><p>Best regards.</p>
</blockquote></div><br>