|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2011, 19:44 | #1 |
Пользователь
Регистрация: 16.09.2011
Сообщений: 10
|
Перемещение компонента влево-вправо
Как реализовать перемещение строго влево-вправо, удерживая кнопку мыши? При этом соответственно если мышь (курсор), идет влево, то и компонент должен идти влево и наоборот.
|
08.12.2011, 00:50 | #2 |
Пользователь
Регистрация: 17.08.2011
Сообщений: 35
|
Ставишь флаг на событие onMouseDown (нажатие кнопки мыши). В onMouseMove проверяешь если "у" меньше чем предыдущий тогда уменьшаешь свойство Left у компонента и если "у" больше увеличиваешь Left. Он у тебя и будет двигаться.
|
08.12.2011, 08:28 | #3 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
Тогда уж и OnMouseUp добавить, где снимать флаг (var flag : boolean;- объявление и flag := false;- снятие флага)
|
20.12.2011, 00:05 | #4 |
Новичок
Джуниор
Регистрация: 04.07.2011
Сообщений: 2
|
Где-то вот так...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); begin flag:=True;Xs:=X; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin flag:=False;Edit3.Text:=''; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if flag=True then begin Edit1.Text:=IntToStr(X); Edit2.Text:=IntToStr(Y); if Xs>X then begin Edit3.Text:='влево'; end else begin Edit3.Text:='вправо'; end; end; Xs:=X; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как сделать циклический сдвиг в массиве на к елементов вправо и влево на язеке с++???? | zvir | Общие вопросы C/C++ | 7 | 13.11.2012 03:37 |
Нарисовать человечка, движением которого вправо и влево можно управлять клавиатурой (Паскаль) | GreenDay | Помощь студентам | 5 | 17.02.2011 20:12 |
Движение влево вправо | X@OC | Общие вопросы по Java, Java SE, Kotlin | 2 | 11.01.2011 20:24 |
КАК повернуть матрицу на 90 градусов вправо (или влево). | RomT24 | Помощь студентам | 15 | 09.12.2009 10:52 |
Заполнение матрицы по спирали (от центра влево-вниз-вправо-вверх) | Баур | Помощь студентам | 4 | 03.12.2009 17:39 |