Gracias Reinaldo, siempre quitandome lo bruto, jejeje

Salu2

TAC
----- Original Message -----
From: "Reinaldo Ernesto Gibert Arencibia" <rega.delphi@...>
To: "Delphi" <DesarrolloDelphi@...>
Sent: Tuesday, May 04, 2004 12:40 AM
Subject: Re: [Delphi] Error al instanciar control


> Hola TAC! Om Sai Ram!
>
> Proyecto modificado:
>
> constructor TMiPanel.Create(AOwner: TComponent);
> begin
> inherited Create(AOwner);
> Width := 500;
> Height := 200;
> FSubPanel := TPanel.Create(Self); // cambiada AOwner por Self. El
> contenedor de este subpanel es el Panel que acabas de crear.
> FSubPanel.Name := 'Subpanel';
> FSubPanel.Caption := 'Subpanel';
> FSubPanel.Parent := Self;
> FSubPanel.Width := 500;
> FSubPanel.Height := 100;
> end;
>
> destructor TMiPanel.Destroy;
> begin
> FSubPanel.Free; // agregada.
> inherited Destroy;
> end;
>
> Salu2, Rey
> ----- Original Message -----
> From: Tito Arrieta
> To: DesarrolloDelphi@...
> Sent: Tuesday, May 04, 2004 8:23 AM
> Subject: [Delphi] Error al instanciar control
>
>
> Amigos tengo este codigo (ver abajo), necesito crear un control que
tenga
> un
> panel dentro de otro panel, en tiempo de diseño lo hace sim problemas
pero
> cuando corro la aplicacion me sale el siguiente error:
>
> ---------------------------
> Debugger Exception Notification
> ---------------------------
> Project Project1.exe raised exception class EClassNotFound with message
> 'Class TPanel not found'. Process stopped. Use Step or Run to continue.
> ---------------------------
> OK Help
> ---------------------------
>
> que puedo hacer, hay alguna otra forma?
>
> Gracias
>
> TAC
>
> unit Panel1;
>
> interface
>
> uses
> SysUtils, Classes, Controls, ExtCtrls;
>
> type
> TPanel1 = class(TPanel)
> private
> FSubPanel : TPanel;
> { Private declarations }
> protected
> { Protected declarations }
> public
> constructor Create(AOWner: TComponent); override;
> destructor Destroy; override;
> { Public declarations }
> published
> { Published declarations }
> end;
>
> procedure Register;
>
> implementation
>
> constructor TPanel1.Create(AOwner: TComponent);
> begin
> inherited Create(AOWner);
> Width := 500;
> Height := 200;
> FSubPanel := TPanel.Create(AOWner);
> FSubPanel.Parent := Self;
> FSubPanel.Width := 500;
> FSubPanel.Height := 100;
> end;
>
> destructor TPanel1.Destroy;
> begin
> inherited Destroy;
> end;
>
> procedure Register;
> begin
> RegisterComponents('Prueba', [TPanel1]);
> end;
>
> end.
>
> Salu2
>
> TAC
>
>
>
> ------------------------------
> DesarrolloDelphi:
> Desarrollo de Software en Borland Delphi
> ------------------------------
> Direcciones de la lista:
> Publicar un mensaje: DesarrolloDelphi@...
> Suscribirse........: DesarrolloDelphi-Subscribe@...
> Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
> Administrador......: DesarrolloDelphi-Owner@...
> Página de la lista.:
http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
> ------------------------------
> Yahoo! Grupos Enlaces
>
> Para visitar tu grupo en Internet, vé a:
> http://ar.groups.yahoo.com/group/DesarrolloDelphi/
>
> Para cancelar tu suscripción a este grupo, enviá un mensaje a:
> DesarrolloDelphi-unsubscribe@...
>
> El uso de Yahoo! Grupos se rige por:
> http://ar.docs.yahoo.com/info/utos.html
>
>
>
> ------------------------------
> DesarrolloDelphi:
> Desarrollo de Software en Borland Delphi
> ------------------------------
> Direcciones de la lista:
> Publicar un mensaje: DesarrolloDelphi@...
> Suscribirse........: DesarrolloDelphi-Subscribe@...
> Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
> Administrador......: DesarrolloDelphi-Owner@...
> Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
> ------------------------------
> Yahoo! Grupos Enlaces
>
> Para visitar tu grupo en Internet, vé a:
> http://ar.groups.yahoo.com/group/DesarrolloDelphi/
>
> Para cancelar tu suscripción a este grupo, enviá un mensaje a:
> DesarrolloDelphi-unsubscribe@...
>
> El uso de Yahoo! Grupos se rige por:
> http://ar.docs.yahoo.com/info/utos.html
>
>