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.
Código:
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