creando componente

[Descendents]

Uso windows Xp y delphi 7 lo digo por si acaso.

cuando se trata de procedimiento ningún problema, el parent se asinga bien y todo.Pero lo de setparent al crear el componente, en momento de diseño todo bien, pero cuando compilo, y cierro la aplicación me da un error bastante grande, que tengo que volver a reiniciar el delphi..

Este es mi codigo de un componente simple y me da error.Haber si podeis decirme porfavor donde esta el error.Ahora que lo pienso igual el error esta en el destroy, por que es cuando me da error.

unit Edit2;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TEdit2 = class(TEdit)
  private
  Fboton :Tbutton;
    { Private declarations }
  protected
    procedure SetParent(AParent: TWinControl); override;
    { Protected declarations }
  public
    constructor Create(AOwner : TComponent); override;    {Constructor}
    destructor  Destroy; override;
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Lezandi', [TEdit2]);
end;


constructor TEdit2.Create(AOwner: TComponent);
begin
  inherited;
  FBoton := TButton.Create(Self);
end;

destructor TEdit2.Destroy;
begin
  Fboton.free;
  inherited;
end;

procedure Tedit2.SetParent(AParent: TWinControl);
begin
  inherited;
  FBoton.Parent := AParent;
end;

end.

Gracias
Saludos

[Descendents]

debugueando he visto que el error me lo da en el destroy justo en el inherited.

Hago algo mal, que cuando la aplicacion se cierra, por culpa del parent, me da un error que me hace reiniciar el programa entero.

Gracias de antemano

[delphi.com.ar]

Tienes un problema en el orden de liberación de los componentes, solución: elimina la línea Fboton.Free, total queda siempre eliminado cuando se elimina el TEdit, por su relación Owner.

Saludos!

[roman]

Empezado por delphi.com.ar

Tienes un problema en el orden de liberación de los componentes, solución: elimina la línea Fboton.Free, total queda siempre eliminado cuando se elimina el TEdit, por su relación Owner.

¿Has probado esto?

Estuve haciendo pruebas al respecto y también me marca errores (aún quitando la línea que indicas), uno montón de "Access violation" e "Invalid pointer operation" y no queda más que Ctrl-Alt-Supr.

Esto sucede cuando se inserta la componente durante el diseño y creo que tiene que ver con el hecho de que el Designer no se entera de la componente creada.

También intenté usar InsertControl y aunque los errores no fueron tan catastróficos aún apareción uno aunque esto último ya no lo probé con detalle.

// Saludos

[delphi.com.ar]

Pues, si lo he probado.... Este fue el texto original de mi respuesta, solo que lo resumí (bastante) porque creí que lo estaba complicando:

Bueno, te comento que he probado tu código y el error solo lo da si el Owner del TEdit2 destruye al componente, si lo destruyes "a mano" no se produce esto, lo que me lleva a sospechar que el problema es que primero se ejecuta el destroy del TWinControl y luego el de TComponent, que quiero decir con esto, que el form libera primero a todos los componentes relacionados por el Parent y luego los relacionados por el Owner, y como accede a la lista de abajo hacia arriba, destruye primero el botón y luego al edit, entonces cuando quieres destuír el botón explícitamente en el Destroy da un access violation, solución: elimina la línea Fboton.Free, total queda siempre eliminado cuando se elimina el TEdit, por su relación Owner.

[delphi.com.ar]

¿Has recompilado el paquete donde tienes instalado el componente?... porque si lo cambias solo en RunTime, el exe funcionará sin problemas pero el IDE fallará porque conserva una versión antigua del componente.

[roman]

Empezado por delphi.com.ar

¿Has recompilado el paquete donde tienes instalado el componente?

Sí claro. Acabo de hacerlo nuevamente y pasó esto:

1. Inserté el componente
2. Cerré el formulario
3. Cerré Delphi

Sin problemas

Y me dije a mí mismo: "MiMismo, algo andabas haciendo mal"
Entonces volví a abrir Delphi e hice:

1. Inserté el componente
2. Cerré Delphi

Accesss violation again.

// Saludos

[roman]

Como dije, aún eliminando la línea del Free obtengo errores. Aquí está el codigo completo que según yo coincide con lo que dices:

unit EditEx;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TEditEx = class(TEdit)
  private
    FBoton: TButton;

  protected
    procedure SetParent(AParent: TWinControl); override;

  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TEditEx]);
end;

constructor TEditEx.Create;
begin
  inherited;
  FBoton := TButton.Create(Self);
end;

procedure TEditEx.SetParent(AParent: TWinControl);
begin
  inherited;
  FBoton.Parent := AParent;
end;

end.

¿Qué me falta?

[Descendents]

Buenas, lo he probado, y a mi aún me sigue dando errores.Me pasa igual que ha roman

Por todos sitios donde he mirado, lo hacen como tu dices, pero no me funciona.

El labelededit que lleva delphi, le he mirado el codigo fuente, y tambien lo hacen igual.

No se, pero no me funciona.

El error es una lista interminable de errores hasta que tengo que reiniciarlo.

Gracias.