[Ришта]

Добрый день! Пытаюсь изменить изображение при наведении курсора. Пыталась найти решение на этом форуме и в учебниках - не смогла. Программа выдаёт ошибку на "Image1". Что я упустила?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



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;

end.

[ChinYan]

Какую ошибку выдает-то? А Image1 у вас вообще существует?

[Ришта]

Не узнаёт идентификатор. А Image1 существует.

[ChinYan]

В коде что вы привели Image1 не существует

[Ришта]

Попробовала удалить и создать ещё раз - появился в коде. Только всё равно не работает так, как задумывалось...

[ChinYan]

Может, наконец опишите, как должно работать и как работает?

[Kailon]

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

Код:

      Image1.Picture.LoadFromFile('C:\While.bmp');  я полагаю должно быть White (белый)

Делу не поможет, но ошибку пунктуации надо исправить

[PS11011010]

Тут есть пример создания анимированной кнопки.

[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;

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

[Kailon]

это самый страшный говнокод какой я только видел

Зачем так оскорблять работу человека?

[Bargest]

robt, я уже писал замечание. Многих посетителей форума раздражает твое неуважение к окружающим. Читай правила форума, часть III, и разговаривай корректно.
Kailon, robt обладает странным стилем общения, и к замечаниям не прислушивается. Возможно придется принимать меры.

[Kailon]

Возможно придется принимать меры.

Поддерживаю!

[robt]

а собственно все согласно правилам
еслиб я ее не уважал, то промолчал бы как некоторые, позволив и дальше считать себя программистом
или если она меня не уважает как пользователя то почему я должен?

[ChinYan]

robt, ты хам. Если бы я тебя не уважал, я бы промолчал, позволив и дальше считать себя тем, кем ты там себя считаешь.
Ришта, попробуйте менять картинки в OnMouseMove Image, а не формы

[robt]

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

попробуйте менять картинки в OnMouseMove Image, а не формы

ахаха, оптимизация налицо