Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2007, 14:06   #1
SaCREDO
Новичок
Джуниор
 
Регистрация: 28.03.2007
Сообщений: 1
По умолчанию Как перемещать TShape с помощью мыши?

Всем доброго! Подскажите плиз чайнику - как програмно поместить TShape на форму и перемещать его с помощью мыши?!
SaCREDO вне форума Ответить с цитированием
Старый 29.03.2007, 00:37   #2
Nemesisking
Форумчанин
 
Аватар для Nemesisking
 
Регистрация: 04.02.2007
Сообщений: 213
По умолчанию

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Tag:=1;
shiftY:=Y; shiftX:=X;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shape1.Tag = 1 then
begin
Shape1.Top:=Shape1.Top+Y-shiftY;
Shape1.Left:=Shape1.Left+X-shiftX;
end;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Tag:=0
end;

Это стандартная процедура перемещения обьектов, типа Image, Shape и других обьектов!
Per Aspera Ad Astra
www.salviaclub.com.ua
Nemesisking вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос о TShape Rusl92 Общие вопросы Delphi 3 21.08.2008 12:53
Быстрый вызов программы с помощью мыши Патрон Win Api 3 17.07.2008 15:40
Как с помощью Microsoft Excel написать программу, позволяющую перемещать предмет на плоскости? Vova4kA Microsoft Office Excel 10 28.05.2008 14:18
Помогите! Как реализовать перемещение панель GroupControl с помощью мыши. Slavon Общие вопросы .NET 0 14.05.2008 13:49
как с помощью TScrollBar перемещать содержимое TMemo вверх или вниз Sanprof Общие вопросы Delphi 3 04.03.2008 00:39