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
Show quoted text 68 lines
------------------------------
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);
;
Application.Run;
end.
-------------------------------------------
-- Best regards, JoshyFun