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 он больше не двигаеться совсем.

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

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

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

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

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