Переместить объект на Image

@Oxico127 · Регистрация: 01.04.2018

Студворк — интернет-сервис помощи студентам

Задача: есть прямоугольник, надо реализовать возможность его передвигать. Знаю, что есть много тем по данной проблеме, но пытаюсь обойтись без полигонов и TPoint.
Примечание: может быть, не очень красивая и правильная реализация, но на события OnMouseDown и OnMouseUp приходятся, так сказать, два действия, поэтому использовал CheckBox1 для разделения

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
int r; //r - размер
int W,A,S,D;//Глобальные переменные
bool paint=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if(CheckBox1->Checked==true){
Image1->Canvas->Rectangle(X, Y, X+45*r, Y+20*r);
paint=false;
}
if(CheckBox1->Checked==false){
S=X;
D=Y;
}
}
//---------------------------------------------------------------------------
//Создание прямоугольника
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
int r=TrackBar1->Position; 
Image1->Canvas->Brush->Style= bsClear; 
Image1->Canvas->Rectangle(W, A, W+45*r, A+20*r); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(CheckBox1->Checked==false){
W=X;
A=Y;
}
if(CheckBox1->Checked==true){
paint=true;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(paint){
Image1->Canvas->Rectangle(X, Y, X+45*r, Y+20*r);
}
}
//---------------------------------------------------------------------------

@lifeforce · 21.05.2018, 00:25

есть простой метод.
если на Image1 наложен Image2 - прямоугольник, то можно воспользоваться
моим примером там я перемещаю лейбл при нажатой кнопке мышы.
можно и под Image приспособить.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::LabelINOMouseMove(TObject *Sender, TShiftState Shift,   //
      int X, int Y)                                                             //
{                                                                               //
     TPoint dp;                                                                 //
 int dx, dy; //01.01.2017
 int i = Form1->NodChoise-1;                                                    //
    if(InoDown == true)  //
    {                                                                           //
   dp=LabelINO->ScreenToClient(Mouse->CursorPos);                               //
   dx=pt.x -dp.x;                                                               //
   dy=pt.y-dp.y;                                                                //
   LabelINO->Left=LabelINO->Left-dx;                                            //
   LabelINO->Top=LabelINO->Top-dy;                                              //                                  //
   pt=LabelINO->ScreenToClient(Mouse->CursorPos);                               //
 
    }                                                                           //
}                                                                               //
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .