Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 28.09.2010, 17:36   #1
muinmy
Новичок
Джуниор
 
Регистрация: 28.09.2010
Сообщений: 2
По умолчанию MouseMove

Всем привет. Ребят помогите.
Есть 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 ??
muinmy вне форума Ответить с цитированием
Старый 28.09.2010, 18:05   #2
muinmy
Новичок
Джуниор
 
Регистрация: 28.09.2010
Сообщений: 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;
muinmy вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не запускается действие MouseMove при прозрачной форме... Ckomoroh Общие вопросы Delphi 10 29.11.2009 20:46
Динамические компоненты и MouseMove Шульц Общие вопросы Delphi 10 23.01.2009 12:27