Seleccionar Imagenes

[Mary Carmen G.]

Hola:

Espero me puedan ayudar o dar una idea, tengo en un ScrollBox varios TImage, las cuales muestran imagenes de articulos, cada TImage tiene un tamaño de 165 X 124 como vistas en miniatura, al dar click sobre cada una se muestra en otro TImage mas grande para una mejor visualizacion, el problema es que deseo que cada vez que de click sobre una, se note que esta seleccionada (con un borde sobre la imagen), ya lo probe creando un shape para cada una y cada vez que la selecciono solo cambio el color, pero quisiera saber si hay alguna manera de hacerlo con el canvas del propio Image para ya no crear tantos componentes.

Espero me haya explicado, y muchas gracias de antemano.

[cHackAll]

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
// Shape1.Brush.Style = bsClear; // design time!
// Shape1.Pen.Width = 2;
// Image1.OnMouseMove = ImageMouseMove;
// Image2.OnMouseMove = ImageMouseMove;
// Image3...

Shape1.Top := (Sender as TImage).Top;
Shape1.Left := (Sender as TImage).Left;
Shape1.Width := (Sender as TImage).Width;
Shape1.Height := (Sender as TImage).Height;
end; // OnClick

[Mary Carmen G.]

Muchisismas gracias cHackAll, de esta manera solo tengo un shape creado en tiempo de diseño y me olvido de crear uno por cada TImage.

Saludos.