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
cmdFija : TButton;
begin
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 metodo
end;
end.
Espero y puedan ayudarme de antemano muchas gracias.