Ver Mensaje Individual
  #2  
Antiguo 17-09-2014
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Reputación: 17
radenf Va por buen camino
Hola Robert Jara.

Bienvenido a ClubDelphi.

Prueba asignando en el evento onMouseEnter del Objeto, el código que haga más grande la imagen y en el evento onMouseLeave el código para que recupere el tamaño inicial.

Ejemplo:

Image1.Width:= 200;
Image1.Height:= 300;

Código Delphi [-]
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
Image1.Width:= 250;
Image1.Height:= 350;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
Image1.Width:= 200;
Image1.Height:= 300;
end;

Puede que necesites corregir además el Image1.Left y el Image1.Top

Salu2

Última edición por radenf fecha: 17-09-2014 a las 19:39:13.
Responder Con Cita