Muda a imagem quando o mouse estiver sobre a imagem

[Valdiney F. Lima 0]

Poderia fazer uma validação antes, verificando se a imagem carregada é a diferente da que se deseja carregar, caso seja, então carrega, senão, não faz nada...

Como seria feito essa validação?

[marcio.theis 3]

Uma forma bem simples de controle seria:

 

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, jpeg, ExtCtrls;type  TForm1 = class(TForm)	Image1: TImage;	procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,	  Y: Integer);	procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,	  Y: Integer);  private	{ Private declarations }  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginif Image1.Tag = 0 then	begin	Image1.Tag:=1;	Image1.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_on.bmp');	end;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginif Image1.Tag = 1 then	begin	Image1.Tag:=0;	Image1.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_off.bmp');	end;end;end.

Usa no caso as propriedades OnMouseMove do TImage e TForm