click en el canvas

[[xEsk]]

Y no seria posible usar unos cuantos TImage, en lugar de pintarlos en el Canvas del TPanel tu mismo? Ya que los TImage te ofrecen los eventos: "OnMouseMove", "OnMouseEnter", etc... y que te ayudarían a detectar si el cursor esta encima de alguna de las imágenes.

Saludos.

[Haddock]

xEsk,
Las imágenes van cambiando de 5 en 5 y no te puedes imaginar la diferencia de rendimiento que hay entre utilizar los TImage y hacerlo directamente sobre el canvas, por eso los dibujo directamente al canvas, pero sigo necesitando tener un onclick sobre ellas

Saludos
Haddock

[jachguate]

Determinar sobre cual se hizo clic es aritmética simple. Si las imágnes son de ancho/alto fijo, es mucho mas sencillo aún:

Como una idea:

Código Delphi [-]
TForm1 = class(TForm)
//...
private
  FLastMousePos: TPoint;
end;

implementation
//...

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  FLastMousePos.X := X;
  FLastMousePos.Y := Y;
end;

procedure TForm1.Panel1Click(Sender: TObject);
var
  IndiceImagen: Integer;
begin
  IndiceImagen := (FLastMousePos.Y div AltoEstandar) * ImagenesPorFila
                        + (FLastMousePos.X div AnchoEstandar);
  ClickEnImagen(IndiceImagen);
end;

Claro que hay que probarlo, y afinarlo... pero con eso ya te irás encaminando.

Hasta luego.

[Haddock]

jachguate,
Eso tiene buena pinta, ta noche lo pruebo y te digo

Gracias

Haddock