constructor...propiedad heredada

[modulay]

Me refiero a lo siguiente:
Ahora mi clase tiene un atributo Timage:

Código Delphi [-]

unit Tbarco;

interface

uses
  Types, ExtCtrls, Classes, Controls;

type
  Tbarco1 = class(TPanel)
private
  dim : integer;
  vert : boolean;
  pro,pop : TPoint;
  imagen : Timage;
public
  property dimension : integer read dim write dim;
  property vertical : boolean read vert write vert;
  property proa : TPoint read pro write pro;
  property popa : TPoint read pop write pop;
  constructor crear(dimens,x,y,ancho,alto : integer);
end;


implementation

  constructor Tbarco1.crear(dimens,x,y,ancho,alto : integer);
  begin
    inherited Create(nil);
    self.vert := false;
    self.dim := dimens;
    self.pro := Point(0,0);
    self.pop := Point(0,0);
    self.Width := ancho;
    self.Height := alto;
    self.Left := x;
    self.Top := y;
    self.AutoSize := true;
    self.caption := '';
    self.Cursor := crHandPoint;
  end;

end.

Tal y como está implementado el tema,si yo llamo a barco.crear(x,x,x,x,x) ¿se llama automáticamente al constructor de imagen?

[dec]

Hola,

Tal y como está implementado el tema,si yo llamo a barco.crear(x,x,x,x,x) ¿se llama automáticamente al constructor de imagen?

No. Es todo lo contrario. Debes crear el objeto "TImage" en el constructor de tu clase y encargarte de destruirlo en el destructor de tu clase.

[roman]

O bien, simplemente pasarle el mismo panel al constructor del TImage y dejar que él se encargue de su destrucción. Aunque por otro lado, no estoy seguro de si es un TImage lo que realmente requiere o le bastaría un TPicture.

// Saludos

[modulay]

Ok!!
Dudas resueltas
Gracias amigos

[vtdeleon]

Empezado por modulay

...

Código Delphi [-]
...
...
  constructor Tbarco1.crear(dimens,x,y,ancho,alto : integer);
  begin
    inherited Create(nil);
    self.vert := false;
    self.dim := dimens;
    self.pro := Point(0,0);
    self.pop := Point(0,0);
    self.Width := ancho;
    self.Height := alto;
    self.Left := x;
    self.Top := y;
self.caption := '';
end;
end.

...

Que extra~o, habia hecho "casi" exactamente esto y no me funciono. Seguro me "comi" algo

Saludos

[roman]

Empezado por vtdeleon

Que extra~o [...] Seguro me "comi" algo

Por lo pronto las eñes.

// Saludos