Перемещение компонентов из положения A в положение B

@Access12 · Регистрация: 28.04.2013

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

Продолжаю вопросник
Всем приятного вечера.
Буду рад подсказкам, ссылка, да и любому посту по теме

Описание: Имеется Form1, на которой расположено 9 панелей,чье положение может меться по желанию в процессе работы программы. При нажатии допустим на CheckBox1, Panel1 должна изменить положение на одно из 9, в зависимости от того занято ли положение или нет и занять первое пустое положение.
Дополнительно: После того как Panel1 поменяла своего положение на 1 из 9, при нажатии на CheckBox2, Panel1 возвращает свое положение.
Вопрос : Как реализовать подобный вариант?

Кликните здесь для просмотра всего текста

Перемещение компонентов из положения A в положение B

Где Рамка-область где расположены компоненты TPanel (исходное расположение,которое может быть изменено).
а Рамка-область где будут располагаться компоненты TPanel1-9, после нажатия на соответствующие CheckBox'ы.
-----------------------------------
Координаты фиксированных позиций.
P[i] -Положение TPanel вариант i
P[i] -Возможное положение при смещении,если вариант i занят.
Панели характеризуют только кол-во панелей, нумерация исключительно для вида.

Кликните здесь для просмотра всего текста

При коде :

C++
1
2
3
4
5
6
int left_pos = 0;
    TPanel *panel = static_cast<TPanel*>(Sender);
    panel->Left = 121 * left_pos + 5;
    panel->Top = 400;
    left_pos = (left_pos + 1) % 10;
}

Панельки "идут" до определенной границы,при том что освободилось положение 2,4,5,7 ..

Был совет использовать Tag, и только при Tag=0 разрешать перемещение, но как то я не разобрался

@volvo · 10.05.2015, 21:33

Сообщение от Access12

После того как Panel1 поменяла своего положение на 1 из 9, при нажатии на CheckBox2, Panel1 возвращает свое положение.

Куда именно? Туда, откуда была перемещена изначально? Что происходит при этом со всеми теми панелями, которые находятся правее той панели, которая "восстанавливается"? Они сдвигаются на освободившуюся позицию или нет? Или просто следующая панель после отметки checkbox1 сможет занять освободившуюся позицию сверху?

Ну, и вопрос на засыпку: зачем первым checkbox-ом забрасывать панель на одну из фиксированных позиций, и восстанавливать ее через checkbox2? Не проще по снятию отметки checkbox1 это делать? Тогда действие можно будет повторять многократно...

@Access12 · 10.05.2015, 21:50 **[ТС]**

Сообщение от volvo

Куда именно? Туда, откуда была перемещена изначально? Что происходит при этом со всеми теми панелями, которые находятся правее той панели, которая "восстанавливается"? Они сдвигаются на освободившуюся позицию или нет? Или просто следующая панель после отметки checkbox1 сможет занять освободившуюся позицию сверху?

Не точно описал,извиняйте.
1)Куда именно? Туда, откуда была перемещена изначально - да ,как на рисунке 1, возвращается в то место,где она располагалась в момент нажатия на CheckBox. (с этим вроде проблем нет,т.к есть возможность перемещать панели, сохраняю положении их,после фиксирования (вкл,откл возможность буксировки)).
2)Что происходит при этом со всеми теми панелями, которые находятся правее той панели, которая "восстанавливается" - Они сдвигаются на освободившуюся позицию или нет ( об этом я забыл написать,но было бы идеальным вариантом)

Сообщение от volvo

Ну, и вопрос на засыпку: зачем первым checkbox-ом забрасывать панель на одну из фиксированных позиций, и восстанавливать ее через checkbox2? Не проще по снятию отметки checkbox1 это делать? Тогда действие можно будет повторять многократно...

Проще,просто не пришло в голову, когда придумывал пример создавая тему.

Не по теме:

Создавал тему долго,не торопясь,занимаясь домашними делами, поэтому извиняйте :) И спасибо за помощь с появляющимися вопросами:)

@volvo · 10.05.2015, 22:17

Вот тебе перехватчик, который делает то, что нужно, но без сдвига при восстановлении позиции. Потом доделаю, если сам не догадаешься, как нужно действовать, сейчас я уже ничего не соображаю, температура за 39 зашкаливает, пойду лечиться

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    private:
        static bool used[9];
        TRect RectBeforeFit;
 
        void __fastcall cbxFitClick(TObject *)
        {
            if(cbxFit->Checked)
            {
                // Перенесем в одну из 9 фиксированных позиций
                RectBeforeFit = this->BoundsRect;
                int i = 0;
                for(; used[i]; i++);
                this->Left = 121 * i + 5;
                this->Top = 20;
                this->Height = 50;
                this->Width = 100;
                used[i] = true;
                this->Tag = i;
            }
            else
            {
                // вернем назад
                this->BoundsRect = RectBeforeFit;
                used[this->Tag] = false;
                this->Tag = -1;
            }
        }
    protected:
        DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button,
            Classes::TShiftState Shift, int X, int Y)
        {
            if (!cbxAllowMove->Checked || Button != mbLeft)
                return;
            // Запомнить где
            viX0 = X;
            viY0 = Y;
            // Будем тащить
            fMove = true;
            // Переместить на передний план эту половинку
            BringToFront();
        }
 
        DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift,
            int X, int Y)
        {
            if (fMove)
            {
                // Установить новые границы для того на кого нажали
                SetBounds(Left + X - viX0, Top + Y - viY0, Width, Height);
            }
        }
 
        DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button,
            TShiftState Shift, int X, int Y)
        {
            fMove = false;
        }
 
        DYNAMIC void __fastcall DblClick(void)
        {
            if(cbxAllowResize->Checked)
            {
                ActivePanel = this;
                SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) | WS_SIZEBOX);
                Width += 1;
                Width -= 1;
            }
        }
 
    public:
        static TPanel *ActivePanel;
 
        TCheckBox *cbxAllowResize;
        TCheckBox *cbxAllowMove;
        TCheckBox *cbxFit;
        __fastcall virtual TPanel(Classes::TComponent* AOwner)
            : Extctrls::TPanel(AOwner)
        {
            cbxAllowResize = new TCheckBox(this);
            cbxAllowResize->Parent = this;
            cbxAllowResize->Left = 10;
            cbxAllowResize->Top = 10;
            cbxAllowResize->Caption = "Resize";
            cbxAllowResize->Checked = false;
            cbxAllowResize->Visible = true;
 
            cbxAllowMove = new TCheckBox(this);
            cbxAllowMove->Parent = this;
            cbxAllowMove->Left = 10;
            cbxAllowMove->Top = 30;
            cbxAllowMove->Caption = "Move";
            cbxAllowMove->Checked = false;
            cbxAllowMove->Visible = true;
 
            cbxFit = new TCheckBox(this); // вот он, тот чекбокс, который будет осуществлять всю работу...
            cbxFit->Parent = this;
            cbxFit->Left = 75;
            cbxFit->Top = 10;
            cbxFit->Caption = "Fit";
            cbxFit->Checked = false;
            cbxFit->Visible = true;
            cbxFit->OnClick = cbxFitClick; // а это - его обработчик
        }
    };
    TPanel *TPanel::ActivePanel = 0;
    bool TPanel::used[9] = {false};
 
}
#define TPanel MyPanel::TPanel

@Access12 · 10.05.2015, 22:24 **[ТС]**

Сообщение от volvo

температура за 39 зашкаливает, пойду лечиться

Да вы ~~мазохист..~~ перед экраном с температурой находиться, спасибо, выздоравливайте

скорее,лечитесь

Сообщение от volvo

если сам не догадаешься, как нужно действовать,

Я постараюсь, но и вы с выздоровлением своим постарайтесь

@Sasha · 10.05.2015, 22:24

Не по теме:

volvo, виздоравливай!!!

@volvo · 11.05.2015, 10:39

Вот - со сдвигом "закрепленных" вкладок:

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    private:
        static bool used[9];
        static TPanel *pnls[9];
 
        TRect RectBeforePin;
 
        void __fastcall DoPin(int pos) // закрепляем панель
        {
            Left = 121 * pos + 5;
            Top = 20;
            Height = 50;
            Width = 100;
            cbxAllowMove->Checked = false; // запретить перемещение "закрепленных" панелей
            cbxAllowMove->Enabled = false;
 
            used[pos] = true;
            Tag = pos;
            pnls[pos] = this;
        }
 
        void __fastcall DoRestore() // восстанавливаем панель
        {
            BoundsRect = RectBeforePin;
            used[Tag] = false;
            pnls[Tag] = 0;
            cbxAllowMove->Enabled = true;
        }
 
        void __fastcall cbxPinClick(TObject *)
        {
            if (cbxPin->Checked)
            {
                // Перенесем в одну из 9 фиксированных позиций
                RectBeforePin = BoundsRect;
                int i = 0;
                for (; used[i]; i++);
                DoPin(i);
            }
            else
            {
                // вернем назад
                this->DoRestore();
 
                for (int i = this->Tag + 1; i < 9; i++)
                {
                    used[i - 1] = used[i];
                    pnls[i - 1] = pnls[i];
                    if (pnls[i - 1])
                    {
                        pnls[i - 1]->DoPin(i - 1);
                        pnls[i - 1]->Tag = i - 1;
                    }
                }
 
                this->Tag = -1;
            }
        }
 
    protected:
        DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button,
            Classes::TShiftState Shift, int X, int Y)
        {
            if (!cbxAllowMove->Checked || Button != mbLeft) return;
            viX0 = X; viY0 = Y;
            // Будем тащить
            fMove = true;
            // Переместить на передний план эту панель
            BringToFront();
        }
 
        DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift,
            int X, int Y)
        {
            if (fMove)
            {
                // Установить новые границы для того на кого нажали
                SetBounds(Left + X - viX0, Top + Y - viY0, Width, Height);
            }
        }
 
        DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button,
            TShiftState Shift, int X, int Y)
        {
            fMove = false;
        }
 
        DYNAMIC void __fastcall DblClick(void)
        {
            if (cbxAllowResize->Checked)
            {
                ActivePanel = this;
                SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) | WS_SIZEBOX);
                Width += 1;
                Width -= 1;
            }
        }
 
    public:
        static TPanel *ActivePanel;
 
        TCheckBox *cbxAllowResize;
        TCheckBox *cbxAllowMove;
        TCheckBox *cbxPin;
 
        __fastcall virtual TPanel(Classes::TComponent* AOwner)
            : Extctrls::TPanel(AOwner)
        {
            cbxAllowResize = new TCheckBox(this);
            cbxAllowResize->Parent = this;
            cbxAllowResize->Left = 10;
            cbxAllowResize->Top = 10;
            cbxAllowResize->Caption = "Resize";
            cbxAllowResize->Checked = false;
            cbxAllowResize->Visible = true;
 
            cbxAllowMove = new TCheckBox(this);
            cbxAllowMove->Parent = this;
            cbxAllowMove->Left = 10;
            cbxAllowMove->Top = 30;
            cbxAllowMove->Caption = "Move";
            cbxAllowMove->Checked = false;
            cbxAllowMove->Visible = true;
 
            cbxPin = new TCheckBox(this);
            cbxPin->Parent = this;
            cbxPin->Left = 75;
            cbxPin->Top = 10;
            cbxPin->Caption = "Pin";
            cbxPin->Checked = false;
            cbxPin->Visible = true;
            cbxPin->OnClick = cbxPinClick;
        }
    };
 
    TPanel *TPanel::ActivePanel = 0;
    bool TPanel::used[9] = {false};
    TPanel *TPanel::pnls[9] = {0};
 
}
#define TPanel MyPanel::TPanel

@Access12 · 11.05.2015, 11:11 **[ТС]**

Сообщение от volvo

Вот - со сдвигом "закрепленных" вкладок:

Большое спасибо

Все превосходно функционирует

Не по теме:

Как ваша температура?Прошла?

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Sasha
	10.05.2015, 22:24
	Не по теме: volvo, виздоравливай!!! 0

Перемещение компонентов из положения A в положение B

Решение