Изменение положения и размера N-го количества компонентов

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

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

Как всегда не уверен в названии темы
Доброго вечера.
Интересует следующий вопрос относительно компонента TPanel.
Имеется FormX, на FormX расположены компоненты Panel (в кол-ве 20-30шт), имеется возможность изменения размеров и положения компонента Panel1 (спойлер).
Вопрос: Можно ли, создать не знаю класс или еще чего, который будет охватывать все компоненты TPanel на FormX, при событии ,если Btn1,2,3....Btn30Click (PanelX=ButtonX,PanelY=ButtonY).
Пожалуйста :намекните,подтолкните,столкните,подкинь те,посоветуйте ... etc.

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

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
void __fastcall TForm2::Panel1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
 
  if(Button != mbLeft) return;
 //Запомнить где
 viX0 = X;
 viY0 = Y;
 //Будем тащить
 fMove = true;
 //Переместить на передний план эту половинку
 ((TControl *)Sender)->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
if(fMove)
 {
  //Установить новые границы для того на кого нажали
  ((TPanel *)Sender)->
  SetBounds(
            ((TPanel *)Sender)->Left + X - viX0,
            ((TPanel *)Sender)->Top + Y - viY0,
            ((TPanel *)Sender)->Width,
            ((TPanel *)Sender)->Height);
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClick(TObject *Sender)
{
 SetWindowLong(Panel1->Handle,GWL_STYLE,GetWindowLong(Panel1->Handle,GWL_STYLE) & ~WS_SIZEBOX);
   Panel1->Width++;
   Panel1->Width--;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
fMove = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1DblClick(TObject *Sender)
{
SetWindowLong(Panel1->Handle,GWL_STYLE,GetWindowLong(Panel1->Handle,GWL_STYLE) | WS_SIZEBOX);
Panel1->Width++;
Panel1->Width--;
}

Всем вошедшим в тему добра, всем откликнувшимся в ней спасибо

@volvo · 06.05.2015, 18:27

При чем тут Panel? Тебе нужен либо перехватчик TButton (аналогичный TStringGrid-овому, который был в прошлом сообщении, но для него надо переопределить метод Click, и по этому самому клику просто менять позицию соответствующей панели), либо написать обработчик нажатия для одной кнопки, и скопировать его во все остальные.

@Access12 · 06.05.2015, 18:45 **[ТС]**

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

При чем тут Panel? Тебе нужен либо перехватчик TButton (аналогичный TStringGrid-овому, который был в прошлом сообщении, но для него надо переопределить метод Click, и по этому самому клику просто менять позицию соответствующей панели), либо написать обработчик нажатия для одной кнопки, и скопировать его во все остальные.

Я создал проект, создал форму, разместил на ней панели, прописал код, теперь при выборе в меню "вкл констр", на Panel1 появляется ЧекБокс(ранее в примере Button), если снять галочку с ЧекБокс1->Panel1 становится доступной к буксировке(поставил галочку-эффект обратный). Я безусловно могу прописать подобный исход для каждой из панелей, но мне стало интересно, можно ли обойтись классом для компонента TPanel и вызывать нужные свойства Чекбоксами (if (...) {} без писанины в каждой панели по отдельности при кол-ве 20-30шт), тем самым ограничившись более коротким кодом (т.е один и тот же результат, при меньшем коде).

Просто я не совсем понимаю( недостаток знаний) к чему это приведет в моем случае

@volvo · 06.05.2015, 18:56

А, вон тебе чего надо. Перехватчики творят чудеса. Смотри:
Перед классом формы:

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
namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    protected:
        DYNAMIC void __fastcall MouseDown(System::Uitypes::TMouseButton Button,
            System::Classes::TShiftState Shift, int X, int Y)
        {
            if (Button != mbLeft)
                return;
            // Запомнить где
            viX0 = X;
            viY0 = Y;
            // Будем тащить
            fMove = true;
            // Переместить на передний план эту половинку
            BringToFront();
        }
 
        DYNAMIC void __fastcall MouseMove(System::Classes::TShiftState Shift,
            int X, int Y)
        {
            if (fMove)
            {
                // Установить новые границы для того на кого нажали
 
                SetBounds(Left + X - viX0, Top + Y - viY0, Width, Height);
            }
        }
 
        DYNAMIC void __fastcall MouseUp(System::Uitypes::TMouseButton Button,
            System::Classes::TShiftState Shift, int X, int Y)
        {
            fMove = false;
        }
 
        DYNAMIC void __fastcall DblClick(void)
        {
            ActivePanel = this;
            SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) | WS_SIZEBOX);
            Width += 1;
            Width -= 1;
        }
 
    public:
        static TPanel *ActivePanel;
        __fastcall virtual TPanel(Classes::TComponent* AOwner)
            : Extctrls::TPanel(AOwner)
        {
        }
    };
    TPanel *TPanel::ActivePanel = 0;
}
#define TPanel MyPanel::TPanel

Собственно, на форме тебе останется только реализовать обработчик OnClick формы:

C++
1
2
3
4
5
6
7
void __fastcall TForm2::FormClick(TObject *Sender)
{
    SetWindowLong(TPanel::ActivePanel->Handle,GWL_STYLE,
        GetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE) & ~WS_SIZEBOX);
    TPanel::ActivePanel->Width++;
    TPanel::ActivePanel->Width--;
}

Всё, сколько бы не было панелек - все будут работать как задумывалось...

Можешь проверять любые чекбоксы, где нужно...

@Access12 · 06.05.2015, 19:12 **[ТС]**

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

Всё, сколько бы не было панелек - все будут работать как задумывалось...
Можешь проверять любые чекбоксы, где нужно...

Глаза загорелись,по коду именно то что искал,но на радостях, при компиле, попал под расстрел =)

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

[C++ Error] Unit1.h(20): E2316 'Uitypes' is not a member of 'System'
[C++ Error] Unit1.h(20): E2293 ) expected
[C++ Error] Unit1.h(66): E2316 'ActivePanel' is not a member of 'TPanel'
[C++ Error] Unit1.cpp(20): E2451 Undefined symbol 'ActivePanel'
[C++ Error] Unit1.cpp(21): E2451 Undefined symbol 'ActivePanel'
[C++ Error] Unit1.cpp(22): E2451 Undefined symbol 'ActivePanel'
[C++ Error] Unit1.cpp(23): E2451 Undefined symbol 'ActivePanel'

В чем уже мой косяк? =\
Инклюды?

@volvo · 06.05.2015, 19:18

Это не твой косяк, а косяк твоего Билдера. Я делал в XE2, для более старых надо убрать все лишние System::Uitypes:: и System::Classes::

А вот с ActivePanel - не понял. Как это "не определен"? Он же описан: статическое поле класса, чего ему не нравится?

@Access12 · 06.05.2015, 19:35 **[ТС]**

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

А вот с ActivePanel - не понял. Как это "не определен"? Он же описан: статическое поле класса, чего ему не нравится?

Оказывается, если проследовать вашему совету ->

убрать все лишние System::Uitypes:: и System::Classes::

Он начинает лишь матюкаться, но компилится

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

[C++ Warning] Unit1.h(65): W8022 '_fastcall TPanel::MouseDown(TObject *,TMouseButton,TShiftState,int,int)' hides virtual function '_fastcall TControl::MouseDown(TMouseButton,TShiftS tate,int,int)'
[C++ Warning] Unit1.h(65): W8022 '_fastcall TPanel::MouseMove(TObject *,TShiftState,int,int)' hides virtual function '_fastcall TControl::MouseMove(TShiftState,int,int) '
[C++ Warning] Unit1.h(65): W8022 '_fastcall TPanel::MouseUp(TObject *,TMouseButton,TShiftState,int,int)' hides virtual function '_fastcall TControl::MouseUp(TMouseButton,TShiftSta te,int,int)'

Добавлено через 10 минут
Размер-работает, Буксировка -нет, чтот я не так в класс вставил

@volvo · 06.05.2015, 19:45

Разумеется... У тебя где-то типы не совпадают, как результат не отрабатывает перегруженный метод, его прототип должен совпадать идеально с прототипом базового метода. Просто открой Controls.hpp, и посмотри, какие параметры в этих трех проблемных методах используются. И точно те же самые запиши себе, как только hides virtual function уйдет - работоспособность восстановится...

Добавлено через 1 минуту
Стоп. Откуда у тебя TObject первым параметром взялся?

@Access12 · 06.05.2015, 19:49 **[ТС]**

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

Стоп. Откуда у тебя TObject первым параметром взялся?

А вот тут то и крот)) По вставлял их каким то боком, все, решилась проблема) Все работает.
Благодарю за оказанную помощь с вопросом

Не по теме
Можно ли уменьшить размер рамки при изменении размера панели?

@volvo · 07.05.2015, 13:20

Access12, по поводу просьбы о добавлении двух CheckBox-ов, один из которых разрешает перетаскивание панели, второй - изменение ее размеров, я бы сделал их вообще членом класса MyPanel::TPanel, вот так:

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
namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    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; // Добавляем 2 чекбокса
        TCheckBox *cbxAllowMove;
 
        __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; // изначально все запрещено
 
            cbxAllowMove = new TCheckBox(this); // это для разрешения перетаскивания
            cbxAllowMove->Parent = this;
            cbxAllowMove->Left = 10;
            cbxAllowMove->Top = 30;
            cbxAllowMove->Caption = "Move";
            cbxAllowMove->Checked = false;
        }
    };
    TPanel *TPanel::ActivePanel = 0;
}
#define TPanel MyPanel::TPanel

Заодно обнаружился небольшой баг в обработчике OnClick формы:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::FormClick(TObject *Sender)
{
    if (TPanel::ActivePanel) // Обязательно добавь, иначе (если кликнешь по форме до даблклика по панели) будет нехорошо
    {
        SetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE,
            GetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE) & ~WS_SIZEBOX);
        TPanel::ActivePanel->Width++;
        TPanel::ActivePanel->Width--;
    }
}

Вот и все...

@Access12 · 07.05.2015, 13:34 **[ТС]**

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

Access12, по поводу просьбы о добавлении

Именно то, о чем я и просил.
Премного благодарен, за столь скорый ответ

@Access12 · 07.05.2015, 14:12 **[ТС]**

И как всегда, ответ на вопрос, порождает несколько новых)))
Пытаюсь обратиться ко всем cbxAllowResize и cbxAllowMove, дабы при нажатии на кнопку ( в моем случае пункт меню), CheckBox'ы стали видимыми (в классе поставил значения для обоих вариантов Visible = false)
А вот как теперь показать,не знаю

C++
1
2
3
4
5
6
7
for(int i = 0; i < ComponentCount; i++)
 {
   TCheckBox *cbxAllowResize;
   cbxAllowResize = dynamic_cast<TCheckBox*>(Components[i]);
   if(cbxAllowResize->Visible == false) 
   cbxAllowResize -> Visible = true;
 }

Компилируются, но результата 0, хотя есть результат- окно ошибки

Хелп

Добрый людь

Изменение положения и размера N-го количества компонентов

@volvo · 07.05.2015, 14:23

Надо искать панели, и на них уже показывать чекбоксы:

C++
1
2
3
4
5
6
7
8
    for (int i = 0; i < ComponentCount; i++)
    {
        TPanel *panel;
        if ((panel = dynamic_cast<TPanel*>(Components[i])) != 0)
        {
            panel->cbxAllowResize->Visible = true;
        }
    }

@Access12 · 07.05.2015, 14:27 **[ТС]**

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

Надо искать панели, и на них уже показывать чекбоксы:

Во блин, а вот 2ой раз я пытался искать cbxAllowResize, на панели.. но естественно по натыкал в код не куда надо))
Спасибо

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. 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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

Изменение положения и размера N-го количества компонентов

Решение

Решение

Решение

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	06.05.2015, 18:27
	При чем тут Panel? Тебе нужен либо перехватчик TButton (аналогичный TStringGrid-овому, который был в прошлом сообщении, но для него надо переопределить метод Click, и по этому самому клику просто менять позицию соответствующей панели), либо написать обработчик нажатия для одной кнопки, и скопировать его во все остальные. 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	06.05.2015, 19:18
	Это не твой косяк, а косяк твоего Билдера. Я делал в XE2, для более старых надо убрать все лишние System::Uitypes:: и System::Classes:: А вот с ActivePanel - не понял. Как это "не определен"? Он же описан: статическое поле класса, чего ему не нравится? 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	06.05.2015, 19:45
	Сообщение было отмечено Access12 как решение Решение Разумеется... У тебя где-то типы не совпадают, как результат не отрабатывает перегруженный метод, его прототип должен совпадать идеально с прототипом базового метода. Просто открой Controls.hpp, и посмотри, какие параметры в этих трех проблемных методах используются. И точно те же самые запиши себе, как только hides virtual function уйдет - работоспособность восстановится... Добавлено через 1 минуту Стоп. Откуда у тебя TObject первым параметром взялся? 1