![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
|
El Destructor "destruye" las propiedades?
Hola a todos y tengo una duda y es justamente si el destructor destruye todos los objetos y propiedades heredados o tengo que hacerlo manualmente aquí les dejo un ejemplo sencillo que veo que aun puedo acceder a la propiedad TRect.
Código:
type
TRecuadro = class
private
FRect: TRect;
public
constructor Create;
destructor Destroy; override;
procedure Dibujar(Pain: TPaintBox);
property Recta: TRect read FRect;
end;
.....
constructor TRecuadro.Create;
begin
inherited;
FRect.Top:= 0;
FRect.Bottom:= 50;
FRect.Left:= 0;
FRect.Right:= 50;
end;
destructor TRecuadro.Destroy;
begin
//aqui hago manualmente la destruccion 1 x 1? pense que era automático
inherited;
end
procedure TRecuadro.Dibujar(Pain: TPaintBox);
begin
Pain.Canvas.Rectangle(0,0,50,50);
end;
procedure TForm1.sButton1Click(Sender: TObject);
var mar: TRecuadro;
begin
mar:= TRecuadro.Create;
edit1.Text:= IntToStr(mar.FRect.Right);
mar.Dibujar(PaintBox1);
mar.Free;
edit2.Text:= IntToStr(mar.FRect.Right)
end;
|
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Usar TServerSocket y TClientSocket para enviar "streams" más o menos "grandes" | dec | Internet | 9 | 04-08-2015 16:11:50 |
| Como cambiar valores en la ventana "General" propiedades del sistema | JuanErasmo | API de Windows | 52 | 17-02-2012 17:42:20 |
| cómo agregar propiedades "published" a un componente desde afuera del mismo? | poyo | OOP | 7 | 14-02-2009 01:26:07 |
| Cómo acceder a las propiedades de un "Parent" | NeoAnderson | API de Windows | 14 | 12-02-2008 21:13:46 |
| Necesito llamar a métodos de clases "hija" desde su clase "padre" | Flecha | OOP | 17 | 20-04-2007 00:03:53 |
|