Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MouseMove [D7, XP]

Роман © (2010-09-28 17:50:00)
Всем привет. Ребят помогите.
Есть 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 18:04:00) [1]
Юрий Зотов спс вам огромное. Все работает.

Медвежонок Пятачок (2010-09-28 18:03:00) [2]
Но после того как опускается shape3 вниз до 240 он больше не двигаеться совсем.

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

Рома (2010-09-28 18:01:00) [3]
а поподробнее . Я сначало тоже так думал и пытался сделать, когда сделал

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

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

Юрий Зотов (2010-09-28 18:00:00) [4]
Примерно так:

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 17:58:00) [5]
ифзенелс?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »