Sender as...

[modulay]

Hola amigos.
Soy un poco novato con delphi y con la POO y tengo un problema que he intentado solucionar por diferentes vías,aunque sin éxito.Les cuento.
Tengo una clase heredada de TPanel a la que le he añadido algunos atributos.

Código Delphi [-]
 
unit Tbarco;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, StdCtrls ;
type
Tbarco1 = class(TPanel)
private
dim : integer;
vert : boolean;
pro,pop : TPoint;
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;
procedure inicializa(dimens : integer);
end;
 
implementation
procedure Tbarco1.inicializa(dimens : integer);
begin
dim := dimens;
vert := false;
pro := Point(0,0);
pop := Point(0,0);
end;
end.

Mi propósito es el poder arrastrar,ubicar y poder rotar objetos de esta clase por el form.
Tengo también un objeto TImage el cual va insertado en mi objeto Tbarco1 y la manera que uso para poder mover el conjunto sobre el form es la siguiente:

Código Delphi [-]
 
barco1 := Tbarco1.Create(form1);
b1 := TImage.create(form1);
b1.Picture.LoadFromFile('1h.bmp');
b1.OnMouseDown := Responsability2Parent;
barco1.OnMouseDown := MoveControl;
b1.OnDblClick := barcoDblClick;
barco1.InsertControl(b1);
Form1.InsertControl(barco1);
 
//...y las rutinas para mover el objeto
 
procedure TForm1.MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if permiso then ReleaseCapture;
if Sender is TWinControl then (Sender as TWincontrol).Perform(WM_SYSCOMMAND,SC_UNDOCUMENTED,0);
end;
procedure TForm1.Responsability2Parent(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.MoveControl((Sender as TImage).Parent,Button,Shift,x,y);
end;
 
//...y las rutinas para rotarlo
 
procedure TForm1.Rotar(BMPOrigen, BMPDestino:TBitmap);
var
f,c:integer;
Ancho,Alto:integer;
tmpBMP: TBitmap;
begin
tmpBMP:=TBitmap.create;
with tmpBMP do
begin
Width:=BMPOrigen.height;
Height :=BMPOrigen.width;
end;
Ancho:=BMPOrigen.Width-1;
Alto :=BMPOrigen.Height-1;
for f:=0 to Alto do
begin
for c:=0 to Ancho do
begin
tmpBMP.Canvas.Pixels[Alto-f,c]:=BMPOrigen.Canvas.Pixels[c,f];
Application.processmessages;
end;
end;
BMPDestino.Assign(tmpBMP);
tmpBMP.Free;
end;
 
procedure TForm1.barcoDblClick(Sender: TObject);
begin
rotar((Sender as TImage).Picture.bitmap,(Sender as TImage).Picture.bitmap);
tablero.Refresh;
end;

Es en esta última TForm1.barcoDblClick(Sender: TObject); donde tengo el problema.
Quiero poder acceder desde ella a los atributos de mi objeto Tbarco1,pero al intentarlo haciendo (Sender as Tbarco1).atributo... me da error de typecast en ejecución.Creo que más o menos entiendo el motivo,ya que el evento DblClick se produce sobre el TImage(he probado a asociar la rutina al objeto Tbarco1 en vez de al de tipo TImage,pero no se produce evento alguno al clikear sobre él).
La verdad es que el diseño que he hecho de la clase Tbarco1 no me convence demasiado,aunque no doy para mucho más.
Desde ya muchas gracias.
Un saludo

[Neftali [Germán.Estévez]]

En lugar de hacer el CAST sobre el Sender, pruebalo sobre su .Parent como has hecho anteriormente; Que si no me equivoco (por lo que he visto) será el TBarco.

[modulay]

Gracias por responder Neftali.
Ya probé esa opción y si no reuerdo mal el .Parent es un TwinControl que tampoco se por donde cogerlo,ya que no parece poseer los atributos que me interesan.

[Neftali [Germán.Estévez]]

Seguramente ese .Parent (TWinControl) es tu TBarco.

Código Delphi [-]
  TBarco(Sender.Parent).PropiedadQueQuieras...

De todas formas, creo que deberías replantearte el diseño de TBarco, como tú bien dices y ver si te interesa derivarlo de un TImage directemente, o de un TPanel (en ese caso yo pondría el TImage -o TBitmap- como propiedad de TBarco).

[modulay]

Heyyyy!!
Nada como un buen casting bien hecho.
Gracias Neftali,ya funciona,con un ligero cambio:

Código Delphi [-]
Tbarco1((Sender as TImage).Parent).atributo...

Con respecto al replanteamiento de la clase,pues ya estuve probando tal y como me comentas,colocando la imagen como atributo de la clase,pero al hacer el InsertControl no se lo traga.
De momento seguiré trabajando con lo que tengo.
Gracias de nuevo.
Saludos