Перемещение Shape по экрану мышью - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Помогите пожалуйста! Как можно сделать чтобы shape1 можно было передвигать по экрану таская её мышью?

Решение задачи: «Перемещение Shape по экрану мышью»

textual
Листинг программы 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Shape1.Tag:=0
end;

Объяснение кода листинга программы

  1. Объявление процедуры TForm1.FormCreate(Sender: TObject)
  2. Установка значения свойства Tag для объекта Shape1 равным 0

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

8   голосов , оценка 4.375 из 5
Похожие ответы