Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Clase que hereda de TForm (https://www.clubdelphi.com/foros/showthread.php?t=26645)

rocio84 28-10-2005 20:29:25

Clase que hereda de TForm
 
Hola:
Necesito crear una clase que herede de la clase TForm con algunos atributos mas y he hecho lo siguiente:

Código Delphi [-]
 type TFormulario = class(TForm)
 private
   {Declaraciones privadas}
 protected
   descripcion :TStrings;
 public
   {Declaracione públicas}
 end;
Mi problema surge cuando intento crear un formularo de este tipo con:

Código Delphi [-]
 TFormulario.Create(self)
Delphi me lanza una expeccion "EResNotFound" y me indica que el recurso TFormulario no existe. ¿Como puedo crear formularios de este tipo?¿Sabeis cual es el problema?

Gracias

luisgutierrezb 28-10-2005 20:49:47

porque no haces una variable de tipo TFormulario, digamos prueba...

Código Delphi [-]
 Var
   Prueba:TFormulario;
y la usas:

Código Delphi [-]
 Prueba := TFormulario.Create(Application);
 Prueba.ShowModal;
 Prueba.Free;
si no la quieres en modo "modal" entonces debes poner en el evento OnClose de la forma:

Código Delphi [-]
 Action := caFree;
y le quitas el Prueba.Free;

roman 28-10-2005 20:55:27

En lugar de Create usa CreateNew

// Saludos

rocio84 29-10-2005 12:54:27

Muchas gracias, con CreateNew si me funciona bien, lo de crear una variable de TFormulario ya lo habia hecho antes pero seguia sin funcionar, muchas gracias de todas formas.


La franja horaria es GMT +2. Ahora son las 11:51:05.

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