error al colocar un componente propio a un form

[[maeyanes]]

Hola...

Veo que ya tienes algunos mensajes en el foro, por lo cual ya deberías haber leido la Guía de Estilo de los foros...

También te recomiendo que uses las etiquetas (sin los espacios en blanco) para mostrar tu código:

var
A, I: Integer;

begin
A := 3;
for I := A to 10 do
ShowMessage(IntToStr(I))
end;

Código Delphi [-]
var
  A, I: Integer;

begin
  A := 3;
  for I := A to 10 do
    ShowMessage(IntToStr(I))
end;

Ves la diferencia?

Ahora, sobre tu problema, algo me dice que el error se encuentra en el código del constructor CreatePanel, pero sin ver el código no te puedo decir más...


Saludos...

[mauqu]

Este es el código del constructor



Código delphi [-]



constructor TProducto.PanelCreate(Sender:Tcomponent);
begin
inherited Create(Sender);

lEtiqueta:=TLabel.Create(Sender);
lEtiqueta.Caption:=''+#13#10+'';
lEtiqueta.Font.Size:=10;
lEtiqueta.Font.Style:=[fsBold];
lEtiqueta.Top:=0;
lEtiqueta.AutoSize:=false;
lEtiqueta.OnMouseDown:=ShapeMouseDown;
lEtiqueta.Font.Name:='Optima';

sForma:=TShape.Create(Sender);
sForma.Brush.Style:=bsClear;
sForma.Pen.Style:=psClear;
sForma.OnMouseDown:=ShapeMouseDown;

BevelInner:=bvNone;
BevelOuter:=bvNone;
Color:=clWhite;
ParentShowHint:=false;
ShowHint:=true;
AutoSize:=true;
OnMouseDown:=PanelMouseDown;
InsertControl(sForma) ;
InsertControl(lEtiqueta);
end;


saludos.

[[maeyanes]]

No veo nada raro en tu código...

Podrás subir la unidad del código en un archivo zip para que le eche un vistazo?


Saludos...

[mauqu]

ahí lo subi, espero que se entienda :S

gracias.

[[maeyanes]]

Ahí donde?

[mauqu]

Ahora si

[[maeyanes]]

El error de Stack Overflow se da en este método:

Código Delphi [-]
function TProducto.GetOnMouseDown:TMouseEvent;
begin
  Result := OnMouseDown;
end;

Por que, por que estas haciendo llamadas recursivas del mismo método GetOnMouseDown...

Solucion:

Código Delphi [-]
function TProducto.GetOnMouseDown:TMouseEvent;
begin
  Result := sForma.OnMouseDown
end;

Ahora, como estás creando un componente visual, te recomiendo que en lugar de crear un constructor propio, redefinas el de TPanel:

Código Delphi [-]
TProducto = class(TPanel)
  // ...
public
  constructor Create(AOwner: TComponent); override;
end;

implementation

constructor TProducto.Create(AOwner: TComponent);
begin
  inherited;
  // Inicializas tu componente...
end;

Por cierto, los métodos para asignar propiedades deben ser siempre privados, a menos que quieras hacerlos virtuales para que futuros descendientes los puedan redefinir...

Otra observación, el método MostrarMensaje lo declaras como un método abstracto, y al ser un componente visual, esto no es aconsejable, ya que para poder hacer buen uso del componente, tendrías que crear un descendiente que implementara la funcionalidad de MostrarMensaje...


Saludos....