|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Изменение изображения при наведении мышки
Добрый день! Пытаюсь изменить изображение при наведении курсора. Пыталась найти решение на этом форуме и в учебниках - не смогла. Программа выдаёт ошибку на "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. |
#2
|
|||
|
|||
Какую ошибку выдает-то? А Image1 у вас вообще существует?
|
#3
|
|||
|
|||
Не узнаёт идентификатор. А Image1 существует.
|
#4
|
|||
|
|||
В коде что вы привели Image1 не существует
|
#5
|
|||
|
|||
Попробовала удалить и создать ещё раз - появился в коде. Только всё равно не работает так, как задумывалось...
|
#6
|
|||
|
|||
Может, наконец опишите, как должно работать и как работает?
|
#7
|
||||
|
||||
Цитата:
Делу не поможет, но ошибку пунктуации надо исправить Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. Последний раз редактировалось Kailon, 04.06.2012 в 14:12. |
#9
|
|||
|
|||
Цитата:
ты хоть осознаеш,что у тебя будет миллион раз в минуту грузится одна из этих картинок с диска |
#10
|
||||
|
||||
Цитата:
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#11
|
||||
|
||||
robt, я уже писал замечание. Многих посетителей форума раздражает твое неуважение к окружающим. Читай правила форума, часть III, и разговаривай корректно.
Kailon, robt обладает странным стилем общения, и к замечаниям не прислушивается. Возможно придется принимать меры. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 04.06.2012 в 16:43. |
#12
|
||||
|
||||
Цитата:
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#13
|
|||
|
|||
а собственно все согласно правилам
еслиб я ее не уважал, то промолчал бы как некоторые, позволив и дальше считать себя программистом или если она меня не уважает как пользователя то почему я должен? Последний раз редактировалось robt, 04.06.2012 в 18:14. |
#14
|
|||
|
|||
robt, ты хам. Если бы я тебя не уважал, я бы промолчал, позволив и дальше считать себя тем, кем ты там себя считаешь.
Ришта, попробуйте менять картинки в OnMouseMove Image, а не формы |
#15
|
|||
|
|||
Цитата:
|