FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
herencia entre paquetes
buen dia:
mi duda es como logro crear un objeto en un paquete desde un paquete base. yo tengo un paquete base que esta compuesto de una unidad y quiero definir un boton para que al cargar otro paquete que contiene una forma y esta forma es creada de la que se encuentra en el paquete base (su hija) ya contenga el boton creado en el paquete base. algo que yo estoy trabajando es crearle al paquete base un metodo donde es creado el boton pero al ser llamado en el paquete con la forma hija el metodo se reinscribe y pierdo el metodo del padre como puedo hacer eso. parte del codigo es: codigo del paquete base unit UFormaBase; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFormaBase = class(TForm) // declaracion de clase de tipo TForm private public{ bloque de metodos generales } procedure CreaButton(const PNLeft, PNTop : Integer); virtual;implementation { creacion de metodos generales } procedure TFormaBase.CreaButton(const PNLeft, PNTop : Integer); var begincmdFija : TButton; cmdFija := TButton.Create(cmdFija); cmdFija.Parent := cmdFija; cmdFija.Left := PNLeft; cmdFija.Top := PNTop;end; end. codigo de otro paquete con una forma hija unit Catalogo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, Activex, UFormaBase, DMCatalogo, fpGenerales;type TfrmCatPlazos = class(TFormaBase) // forma hija private public procedure CreaButton(const PNLeft, PNTop : Integer); override; // aqui es donde llamo al metodoend; end. Espero y puedan ayudarme de antemano muchas gracias.
__________________
La ignorancia se supera cuando se atreve uno a preguntar. |
|
|
|