VPF::Delphi | Image | OnMouseMove - Форум программистов

ReZuS

Дата 12.7.2010, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(PsiMagistr @ 12.7.2010, 19:32)

Проверьте лежит ли это изображение именно на фоне (картинка единорог) или на каком нибудь другом изображении. Это очень важно.

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

Присоединённый файл ( Кол-во скачиваний: 13 )

Pic.jpg 262,87 Kb

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

--------------------

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

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

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

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

ReZuS

Дата 12.7.2010, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Все робит! еще раз спасибо за помощь smile

Очень помогли!!!

PsiMagistr

Дата 13.7.2010, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

а что хоть пишешь то?

--------------------

ReZuS

Дата 14.7.2010, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Тест в делфи по делфи smile

Просто форму один немного нужно было пооригинальничать smile

Вот щас мозг ломаю над кодом самого теста, милион раз уже все переделывал smile

Один маленький и один огромный осячки остались smile

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.

что тут не так, первая кнопка нормально при наведении пропадает появляется другая, а вторая даже пропадать не хочет...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »