Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Crear un nuevo form (https://www.clubdelphi.com/foros/showthread.php?t=45527)

CottonMouth 05-07-2007 22:12:17

Crear un nuevo form
 
Hola a todo! :D tengo este codigo y lo que quiero es crear un boton en el Form1 y que al hacer click en este boton me cree un nuevo formulario yo lo hice asi, al ejecutarlo me crea el boton pero al hacer click en el no pasa nada, que estoy haciendo mal :confused: ? Este es el codigo:

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
          private
    { Private declarations }
      MiBoton:TButton;
      Form2: TForm1;
     procedure MiBotonClick(Sender: TObject);
 
 
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 
 
   implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      MiBoton:=TButton.Create(Self);
      MiBoton.Parent:=Form1;
end;
procedure TForm1.MiBotonClick(Sender: TObject);
begin
       Form2:=TForm1.Create(Application);
       Form2.Caption:='Pruductos';
       Form2.Show;
 
end;
end.
Bueno espero que me puedan ayudar. Besos. Luly:p

dec 05-07-2007 22:34:20

Hola,

No asignaste método alguno al evento "OnClick" del botón.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  MiBoton := TButton.Create(Self);
  MiBoton.Parent := Form1;
  MiBoton.OnClick := MiBotonClick;
end;

CottonMouth 05-07-2007 22:46:49

Hola Dec:
Gracias !! ahora me anda perfecto.:D Besos! Luly:p


La franja horaria es GMT +2. Ahora son las 01:39:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi