otra solucion sencilla puede ser el crear un TShape poniendo
TShape.Brush.Style:=bsClear; y en el codigo
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape1.Left:=(Sender as TImage).Left - 3;
Shape1.Top:=(Sender as TImage).Top - 3;
end;
para todos los controles TImage.
el tres que aparece es el valor que le adjudico a
TShape.Pen.Width := 3;
el TShape tiene que tener el ancho y alto el tamaño del TImage mas el doble del valor de pen.width
aparte de esto tendrias que poner segun tus necesidades el Tshape.visible a True False.
espero que quede claro y que te sirva, es una solucion sencilla pero efectiva y que casi o usa recursos, por cierto si le pones un color al TShape $32EDF4 , por ejemplo resalta muy bien.
por ultimo no te olvides que Thape.Enabled:=False;
un saludo
|