Ver Mensaje Individual
  #5  
Antiguo 28-10-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola onystam, como te han explicado solo es usar los eventos que te indica Neftali y cargar una u otra imagen,

Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //Cuando presione cambiamos la imagen
 Image1.Picture.LoadFromFile('d:\Imagen1.jpg');
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //Y al soltar cargamos la imagen incial.
 Image1.Picture.LoadFromFile('d:\Imagen.jpg');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 //inicializamos el TImage
 Image1.Picture.LoadFromFile('d:\Imagen.jpg');
end;

Inclusive, también podrías hacerlo con una sola imagen y un label, cargas la imagen en el TImage y encima de ese TImage colocas el label, para solo cambiar de color del label utilizando los eventos OnMouseDown, OnMouseUp y también tiene OnMouseEnter, OnMouseLeave..

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita