[Lazarus-es] Resumen de Lazarus-es, Vol 24, Envío 23

[Jose Antonio Cuello]

Hola, he probado tu código y es cierto que me funciona, pero cuando 
compilo para WindowsCE me da el error de access violation igualmente ... 
perdón por no haber comentado que era bajo WindowsCE ... no se me 
ocurrió probarlo bajo Windows normal ... :-[

Lazarus: 0.9.29 beta (con pack de compilación para arm)
Fecha: 2009-09-16
Versión FPC: 2.5.1
Revisión SVN: 21723


> ------------------------------
>
> Message: 4
> Date: Fri, 25 Sep 2009 10:17:55 +0200
> From: JoshyFun <joshyfun en gmail.com>
> Subject: Re: [Lazarus-es] Creación dinámica de Forms
> To: Spanish version of Lazarus List
> 	<lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <181151008.20090925101755 en gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1
>
> Hello Jose,
>
> Friday, September 25, 2009, 8:41:25 AM, you wrote:
>
> JAC> Gracias por contestar. Ya he probado eso, tanto con 
> JAC> application.CreateForm como por el procedimiento NewForm() pero el
>
> Vaya, jeje, la prueba ha sido más rápida de lo que pensaba  :)  Este
> código funciona:
>
> -------------------------------------------
> [prueba.lpr]-------------------------------
> -------------------------------------------
> program prueba;
>
> {$mode objfpc}{$H+}
>
> uses
>   {$IFDEF UNIX}{$IFDEF UseCThreads}
>   cthreads,
>   {$ENDIF}{$ENDIF}
>   Interfaces, // this includes the LCL widgetset
>   Forms, StdCtrls
>   { you can add units after this };
>
> type
>
> { TMyForm }
>
> TMyForm=class(TForm)
> private
>   procedure UnBotonClick(Sender: TObject);
> end;
>
> { TMyForm }
>
> procedure TMyForm.UnBotonClick(Sender: TObject);
> begin
>   Self.Close;
> end;
>
> var
>   FMain: TMyForm;
>   UnBoton: TButton;
>
> begin
>   Application.Initialize;
>   Application.CreateForm(TMyForm, Fmain);
>   UnBoton:=TButton.Create(Application);
>   UnBoton.Caption:='Click cierra';
>   FMain.InsertControl(UnBoton);
>   UnBoton.OnClick:=@FMain.UnBotonClick;
>   Application.Run;
> end.
> -------------------------------------------
>
> -- Best regards, JoshyFun