Hi again, I solved the problem. 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.
2008/12/14 User <[email protected]> > 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. > > My application: > > unit Unit1; > > {$mode objfpc}{$H+} > > interface > > uses > Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, > Dialogs, > ComCtrls; > > type > > { TFormCustom } > > TFormCustom = class(TForm) > StatusBar1: TStatusBar; > private > { private declarations } > public > { public declarations } > end; > > var > FormCustom: TFormCustom; > > implementation > > initialization > {$I unit1.lrs} > > end. > > unit Unit2; > > {$mode objfpc}{$H+} > > interface > > uses > Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, > Dialogs, Unit1, > StdCtrls; > > type > > { TForm1 } > > TForm1 = class(TFormCustom) > Label1: TLabel; > private > { private declarations } > public > { public declarations } > end; > > var > Form1: TForm1; > > implementation > > initialization > {$I unit2.lrs} > > end. > > program project1; > > {$mode objfpc}{$H+} > > uses > {$IFDEF UNIX}{$IFDEF UseCThreads} > cthreads, > {$ENDIF}{$ENDIF} > Interfaces, // this includes the LCL widgetset > Forms > { you can add units after this }, Unit1, Unit2; > > begin > Application.Initialize; > Application.CreateForm(TForm1, Form1); > Application.Run; > end. > > Best regards. >
_______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
