Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-07-2007
Avatar de CottonMouth
CottonMouth CottonMouth is offline
Miembro
 
Registrado: jun 2007
Posts: 18
Poder: 0
CottonMouth Va por buen camino
Question Crear un nuevo form

Hola a todo! 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 ? 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

Última edición por dec fecha: 05-07-2007 a las 22:32:29.
Responder Con Cita
  #2  
Antiguo 05-07-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 05-07-2007
Avatar de CottonMouth
CottonMouth CottonMouth is offline
Miembro
 
Registrado: jun 2007
Posts: 18
Poder: 0
CottonMouth Va por buen camino
Thumbs up

Hola Dec:
Gracias !! ahora me anda perfecto. Besos! Luly
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Adaptar form a nuevo tamaño de pantalla Tonio Varios 4 26-05-2007 19:55:45
Nuevo Form con DataModule gluglu Varios 4 08-11-2005 17:37:30
Busqueda al abrir un nuevo form tiagor64 Conexión con bases de datos 1 15-02-2005 11:17:39
Crear nuevo alias VolaRe Firebird e Interbase 2 21-11-2003 23:07:03
Problema la crear un nuevo Form Pally OOP 16 29-07-2003 15:03:14


La franja horaria es GMT +2. Ahora son las 10:25:08.


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
Copyright 1996-2007 Club Delphi