[robt]

Сообщение от Ришта

Код:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (X>=Image1.Left)and(Y>=Image1.Top)and(X<=Image1.Left+Image1.Width)and(Y<=Image1.Top+Image1.Height) then
      Image1.Picture.LoadFromFile('C:\Yellow.bmp')
   else
      Image1.Picture.LoadFromFile('C:\While.bmp');
end;

это самый страшный говнокод какой я только видел
ты хоть осознаеш,что у тебя будет миллион раз в минуту грузится одна из этих картинок с диска