Вопрос №38095
 
 
 
 
Категории

 

Вопрос программистам. Как сделать так чтоб при нажатии на Button в делфи двигался эллипс вслед за указателем?

Волшебство · почти 6 лет назад · 2 ответа
 

Как сделать так чтоб при нажатии на Button в делфи двигался эллипс вслед за указателем?
Нужно в Button1Click нарисовать на Image нарисовать Эллипс и заставить за указателем двигаться Image. Но как заставить Image двигаться за указателем?

Хороший вопрос Ф топку
0
1
Видео по теме
 
Ответы
Олег · почти 6 лет назад

Как то так:
var x0,y0: integer; // глобальные переменные
move: boolean; // глобальная переменная

procedure Image1.MouseDown ( .....
begin
if Button <> mbLeft then move:= false
else
begin
move:= true;
x0:= X;
y0:= Y;
end;
end;

procedure Image1MouseMove(......
begin
if move then
begin
Image1.SetBounds(Image1.Left + X - x0, Image1.Top + Y - y0,
Image1.Width,Image1.Height);
end;
end;

procedure Image1MouseUp( ......
begin
move:= false;
end;

 
 
Олег · почти 6 лет назад

Ну это не много не то что вы хотели, тут при нажатии на кнопку мыши, рисунок двигается за курсором мыши, а при отпускании перестает... Если не разберетесь как из этого переделать в конкретно ваше задание-пишите, переделаем... =)

 
 
 
 
Похожие вопросы
Стас · около 8 лет назад · 1 ответ
 
Ontario · больше 6 лет назад · 9 ответов
 
Время · больше 6 лет назад · 4 ответа
 
Sergei · около 4 лет назад · 2 ответа
 
Reader · почти 4 года назад · 35 ответов
 
 
Ссылка на этот вопрос
 
Поискать ответ на вопрос: ответы@mail.ru, otvety@google.ru, Яндекс.Ответы
 
Читать новые вопросы в: LiveJournal, Livinternet, Google Reader
 
Этот вопрос посмотрели 740 раз, в среднем 2 просмотра в неделю (0.34)
 
 
 
 
 
 
Адрес друга:
 
 
 
 
 
 
 
 
 
 
 

© vorum.ru — вопросы и ответы, 2006–2016
Пишите нам на in@vorum.ru

Администрация сервера не гарантирует точность и достоверность размещаемых пользователями материалов, а также не несет ответственности ни за какие задержки, сбои, удаление или несохранность какой-либо пользовательской информации.

Цифры не для всех: 181

 
 
× Нравится наш сайт?
Нажмите кнопку «Мне нравится» (Like), чтобы присоединиться к нам на Facebook