[Lazarus-es] Creación dinámica de Forms

JoshyFun joshyfun en gmail.com
Vie Sep 25 10:17:55 CEST 2009


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





More information about the Lazarus-es mailing list