Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-07-2003
nemo nemo is offline
Registrado
 
Registrado: jul 2003
Posts: 6
Poder: 0
nemo Va por buen camino
Question Crear un Form desde un componente

Amigos: disculpen por preguntar algo tan básico, pero si alguien puede ayudarme le agradecería mucho.
Estoy haciendo un componente que guarda la estructura de propiedades de una persona TPersona; no es un componente visual y necesito implementarle un método que cuando yo lo corra como Persona.GetData;, el componente despliegue un form creado dinámicamente sobre la base de las propiedades del mismo componente, permitiendome enviar los datos a un servidor SQL, o grabarlos en disco como XML.

Implementé el siguiente método:

function TPersona.GetData: boolean;
var
Ventana: TForm;
begin
Ventana:=TForm.Create(Self);
Ventana.ShowModal;
Result:=True;
end;

y logro que el componente presente una ventana en blanco. El problema surge cuando hago esta declaración:

type
TVentana = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

y pretendo que el componente la muestre con el siguiente método:

function TPersona.GetData: boolean;
var
Ventana: TVentana;
begin
Ventana:=TVentana.Create(Self);
Ventana.ShowModal;
Result:=True;
end;


Pero se produce una excepción que me dice que nos posible encontrar el archivo de recursos (probablemente el .DFM).

Cómo puedo solucionar esto?

Muchas Gracias.
Responder Con Cita
 



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


La franja horaria es GMT +2. Ahora son las 21:45:37.


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