Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi | Image | OnMouseMove 
:(
    Опции темы
ReZuS
Дата 12.7.2010, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Народ подскажите пожалуйста как сделать чтобы при наведении курсора на компоненту image она исчезала, или при убирание корсара появлялась! Или наоборот при наведении курсора в определенные координаты появлялась и исчезала! Я вот думал с помощью свойства visibla и события OnMouseMove! Но что-то не выходит...
P.S. Только если можно поподробнее пожалуйста!!!
PM MAIL   Вверх
Keeper89
Дата 12.7.2010, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
1) Запомнить координаты и размеры изображения.
2) В MouseMove у Image убирать картинку, В MouseMove у объекта, на котором она находится проверять координаты для ее отобажения.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
ReZuS
Дата 12.7.2010, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
1) Ну вот допустим размер изображенииея 89х89,а координаты 0,360!
2) А здесь бы поподробнее пожалуйста! А то я совсем новичок:(
PM MAIL   Вверх
Frees
Дата 12.7.2010, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  x := x - Image1.Left;
  y := y - Image1.Top;
  if not((X in [0..10]) and (y in [0..10])) then
    Image1.Visible := true

end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X in [0..10]) and (y in [0..10]) then
    Image1.Visible := False;
end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
PsiMagistr
Дата 12.7.2010, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Ну например так:

Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if X < 200 then Image.Visible := false
 else
   Image.Visible := true;
end;


Х - переменная хранящая горизонтальную координату мышки. Таким образом, если горизонталь превысит 200 единиц, картинка исчезнет. Во всех других случаях будем ее показывать. 


Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 15:22


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
Frees
Дата 12.7.2010, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
~FoX~, если Image виден и возить над ним мышкой то MouseMove форме не будет приходить


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
~FoX~
Дата 12.7.2010, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68
Frees, Сори, я думал наобарот надо... )))) Удалил пост...


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
ReZuS
Дата 12.7.2010, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Frees, все сделал как ты мне написал, но рекации ни какой:(
PM MAIL   Вверх
Frees
Дата 12.7.2010, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(ReZuS @  12.7.2010,  17:51 Найти цитируемый пост)
Frees, все сделал как ты мне написал, но рекации ни какой:(

Image у тебя непосредственно на форме лежит? если нет то FormMouseMove должен быть у того контрола на котором лежит Image

Добавлено @ 14:55
эффект от моего примера такой - наводишь на левый верхний угол мышь картинка исчезла, убираешь мышь появляется


Это сообщение отредактировал(а) Frees - 12.7.2010, 14:55


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
ReZuS
Дата 12.7.2010, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Хм...чтоб не путаться у себя в коде, даже создал новую чистую форму, добавил картинку в верхний левый угол и прописал твой код, и всё равно ни чего:(:(

Это сообщение отредактировал(а) ReZuS - 12.7.2010, 15:07
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (x >= Img.Left) and (X<=Img.Left + Img.Width) and (Y>=Img.Top) and (Y<=Img.Top+img.Height)   then Img.Visible := true
  else Img.Visible := false;
end;


Вот. Если я правильно понял, что вы хотите. Теперь если мышь будет попадать в площадь картинки, она будет становиться видимой. Иначе - нет.

Можно даже так сделать:

Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Img.Visible := (x >= Img.Left) and (X<=Img.Left + Img.Width) and (Y>=Img.Top) and (Y<=Img.Top+img.Height);

end;


Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 15:15

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  Proba.rar 86,98 Kb


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Вот еще один вариант. теперь если:

Навести мышь на картинку - она исчезает. Убрать мышь из координатной "зоны" невидимой картинки - она появляется.


Присоединённый файл ( Кол-во скачиваний: 26 )
Присоединённый файл  Proba.rar 453,11 Kb


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Вообщем все полусилось, спасибо за помощь! Но появилась проблема, у меня на форме три компонента image, одна на всю форму и две других маленькие одинаковых размеров, и одна компонента под другой! И вот чтобы при наведение курсора верхняя компонента image исчезала, но я делаю все как надо но она почему то не исчезает!!! Посмотрите и помогите еще пожалуйста!!!

Присоединённый файл ( Кол-во скачиваний: 25 )
Присоединённый файл  rar.rar 240,45 Kb
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Погодите немного. Я постараюсь Вам помочь.

Просмотрите этот вариант. Так же я убрал из описания один модуль. В дельфи 6 он не открывается.

Итак:

При наведении мыши на картинку она исчезает.

При убирании указателя с зоны невидимой картинки она появляется

RezuS, скачайте исполняемый файл со второй страницы.



Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 18:04

Присоединённый файл ( Кол-во скачиваний: 23 )
Присоединённый файл  Proba2.rar 1,69 Kb


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  17:23)
Погодите немного. Я постараюсь Вам помочь.

Просмотрите этот вариант. Так же я убрал из описания один модуль. В дельфи 6 он не открывается.

Итак:

При наведении мыши на картинку она исчезает.

При убирании указателя с зоны невидимой картинки она появляется.

А почему архив такой маленький? Он у меня не открывается:(
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Давайте сделаем так. Запустите этот исполняемый файл. Просмотрите как ведет себя картинка. Если Вас устроит я дам Вам код.

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  Project1.rar 447,20 Kb


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  17:47)
Давайте сделаем так. Запустите этот исполняемый файл. Просмотрите как ведет себя картинка. Если Вас устроит я дам Вам код.

Ага устраивает, если я правильно понимаю то моя затея получится!!! Вроде... Выложи код я проверю! И спасибо за помощь!!!
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Хорошо. Итак приступим. Найдите у себя в проекте то изображение которое должно исчезать. В инспекторе объектов отыщите обработчик для этого изображения OnMouseMove. Туда запишите:


Код

Img2.Visible := False; //Img2 это имя изображения, которое должно исчезать.


Таким образом должно получиться:

Код

procedure TForm1.Img2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);//Начало обработчика.
begin
Img2.Visible := False; //Это мы написали сами
end; //Конец обработчика


Теперь отыщите OnMouseMove изображения фона. (обратите внимание, не формы (!) а самого изображения-фона, с единорогом которое!) и впишите туда:

Код

if  (y < Img2.top) or (y >img.Top+img.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true; //img2 это по прежнему имя исчезающего изображения.


У вас должно получится:

Код

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer); //Начало обработчика.
begin
  if  (y < Img2.top) or (y >img.Top+img.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true; //Это мы написали сами.
end; //Конец обработчика



Надеюсь все у Вас получится. Отпишитесь в любом случае.





Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 19:05


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
PsiMagistr, да, да, да, да, всё получилосьsmilesmile Спасибо тебе большое за помощь, я б не знаю что без твоей помощи делал!!!
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Всего Вам доброго! Обращайтесь.


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
А если мне еще нужно аналогичную картинку добавить я в изоброжение фона добавляю? 

Код


begin
  if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true // Где img3 новое исчезавшое изображение
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Если Вам нужны аналогичные операции для второй картинки и если эта вторая я картинка лежит на изображении-фоне, то да. 

Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 18:49


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  18:47)
Если Вам нужны аналогичные операции для второй картинки и если эта вторая я картинка лежит на изображении-фоне, то да.

Код

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if  (y < Img2.top) or (y >img2.Top+img2.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true
end;
 begin
if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true
end;


Что я не так делаю? Он на этой строке ругается 
Код

if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Для начала проверьте есть ли у Вас картинка с именем (Name) img3. Скорей всего у Вас нет картинки с таким именем.

В конце каждой строки должен стоять оператор точка с запятой.

Немного подправил код.

Код

if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true;


Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 19:11


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  19:00)
Для начала проверьте есть ли у Вас картинка с именем (Name) img3. Скорей всего у Вас нет картинки с таким именем.

В конце каждой строки должен стоять оператор точка с запятой.

Да нет все на месте, имж имеется 
Вот какие ошибки выдает:
[Error] Unit1.pas(71): Undeclared identifier: 'y'
[Error] Unit1.pas(78): Missing operator or semicolon
[Error] Unit1.pas(22): Unsatisfied forward or external declaration: 'TForm1.Img3MouseMove'
[Fatal Error] Project2.dpr(7): Could not compile used unit 'Unit1.pas'
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Шлите исходник - посмотрю.



Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 19:15


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  19:12)
Шлите исходник - посмотрю.

В исходнике там лишние вещи прошу на них внимания не обращать!

Это сообщение отредактировал(а) ReZuS - 12.7.2010, 19:24
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Так. для начала. 


Цитата(ReZuS @  12.7.2010,  18:51 Найти цитируемый пост)
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if  (y < Img2.top) or (y >img2.Top+img2.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true
end;
 begin
if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true
end;



Обработчик записан неверно.

Вот как должно быть.

Код

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer); //заголовок обработчика с параметрами

begin //Начало обработчика
if  (y < Img2.top) or (y >img2.Top+img2.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true; //Действие первое
if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true; //Действие второе
end; //Конец обработчика



--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Ага)) спасибо, тупанул! А изображение3 проподает но почему то не появляется!
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Проверьте лежит ли это изображение именно на фоне (картинка единорог) или на каком нибудь другом изображении. Это очень важно.

Это сообщение отредактировал(а) PsiMagistr - 12.7.2010, 19:34


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Цитата(PsiMagistr @ 12.7.2010,  19:32)
Проверьте лежит ли это изображение именно на фоне (картинка единорог) или на каком нибудь другом изображении. Это очень важно.

Ну я так понимаю на фоновой картинке оно лежит:

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  Pic.jpg 262,87 Kb
PM MAIL   Вверх
PsiMagistr
Дата 12.7.2010, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
Код

procedure TForm1.Img2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Img2.Visible := false;
end;


Код

procedure TForm1.Img3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img3.Visible :=false;
end;


Код

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if  (y < Img2.top) or (y >img2.Top+img2.Height) or (x < img2.Left) or (x > img2.Left+img2.Width)  then Img2.Visible := true;
  if  (y < Img3.top) or (y >img3.Top+img3.Height) or (x < img3.Left) or (x > img3.Left+img3.Width)  then Img3.Visible := true; //Äåéñòâèå âòîðîå
end;






Присоединённый файл ( Кол-во скачиваний: 17 )
Присоединённый файл  Project1.exe 813,00 Kb


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 12.7.2010, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Все робит! еще раз спасибо за помощьsmile Очень помогли!!!
PM MAIL   Вверх
PsiMagistr
Дата 13.7.2010, 08:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1
а что хоть пишешь то?


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
ReZuS
Дата 14.7.2010, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.7.2010

Репутация: нет
Всего: нет
Тест в делфи по делфиsmile Просто форму один немного нужно было пооригинальничатьsmile Вот щас мозг ломаю над кодом самого теста, милион раз уже все переделывалsmile Один маленький и один огромный осячки осталисьsmile
PM MAIL   Вверх
RedFire
Дата 5.5.2011, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.5.2011

Репутация: нет
Всего: нет
Привет всем, пробую по вашему коду написать кнопки ток чет не получается((
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Img: TImage;
    Img1: TImage;
    Img2: TImage;
    Img3: TImage;
    Img4: TImage;
    Img5: TImage;
    Img6: TImage;
    Img7: TImage;
    Img8: TImage;
    Img9: TImage;
    Img10: TImage;
    Img11: TImage;
    Img12: TImage;
    Img13: TImage;
    procedure ImgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Img2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Img1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Img1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Img.Visible :=false;
if Img.Visible =false then Img1.Visible :=true;
end;

procedure TForm1.Img2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Img2.Visible := false;
if Img2.Visible =false then Img3.Visible :=true;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if  (y < Img.top)  or (y >img.Top+img.Height)   or (x < img.Left)  or (x > img.Left+img.Width)   then Img.Visible := true; if Img.Visible =true  then Img1.Visible :=false;
  if  (y < Img2.top) or (y >img2.Top+img2.Height) or (x < img2.Left) or (x > img2.Left+img.Width)  then Img2.Visible := true; if Img2.Visible =true then Img3.Visible :=false;
end;
end.


что тут не так, первая кнопка нормально при наведении пропадает появляется другая, а вторая даже пропадать не хочет...
PM MAIL WWW   Вверх
Страницы: (3) [Все] 1 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0800 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.