Скачать: CL | DM;

MouseMove   Найти похожие ветки 

← →
Роман   (2010-09-28 17:50) [0]

Всем привет. Ребят помогите.
Есть image1 на нем расположен shape3, так вот. Создаю процедуру
Код:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
shape3.Top:=mouse.CursorPos.Y - image1.ClientOrigin.Y;
end;
Как сделать чтоб по оси Y shape3 двигался тока в приделах TOP от 72-240 ??

---

← →
Медвежонок Пятачок ©   (2010-09-28 17:58) [1]

ифзенелс?

---

← →
Юрий Зотов ©   (2010-09-28 18:00) [2]

Примерно так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
 T: integer;
begin
 T:=mouse.CursorPos.Y - image1.ClientOrigin.Y;
 if T in [72..240] then
   shape3.Top := T;
end;

---

← →
Рома   (2010-09-28 18:01) [3]

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

if (shape3.top<240) and (shape3.top>72) then
shape3.Top:=mouse.CursorPos.Y;

Но после того как опускается shape3 вниз до 240 он больше не двигаеться совсем.

---

← →
Медвежонок Пятачок ©   (2010-09-28 18:03) [4]

Но после того как опускается shape3 вниз до 240 он больше не двигаеться совсем.

ну ты же сам так захотел

---

← →
Рома   (2010-09-28 18:04) [5]

Юрий Зотов спс вам огромное. Все работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c