работа с мышью!

[_Timon]

на форме картинка, как сделать так чтоб при наведении на неё мышкой картинка менялась на другую и наоборот!

[Terran]

Сообщение от _Timon

на форме картинка, как сделать так чтоб при наведении на неё мышкой картинка менялась на другую и наоборот!

Самый простой вариант это сделать так:

Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Image1.Picture.LoadFromFile('E:\1.jpg');
End;
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Image1.Picture.LoadFromFile('E:\2.jpg');
End;

Или так:

Procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Image1.Visible:=True;
Image2.Visible:=False;
End;
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Image1.Visible:=False;
Image2.Visible:=True;
End;

Только Image1 расположите поверх Image2.