Перемещение динамически созданной кнопки по сетке на форме

@zin · Регистрация: 19.04.2012

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

не знаю как сделать, чтобы кнопки созданные динамически перемещались в любую ячейку сетки размещенной на форме. Вот код проги:

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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int  i = 0; i < 10; i++)
     {
        for (int j = 0; j <8; j++)
         {
            TPanel *p = new TPanel(  this->Panel1  );
            p->Parent = this->Panel1;
            p->Width =67;
            p->Height  =68;
            p->Left = i * p->Width;
            p->Top  = j * p->Height;
        }
    }
     String ifiles[] = { "NOT.bmp",  "AND.bmp","OR.bmp","1.bmp","2.bmp","3.bmp","4.bmp",
                        "5.bmp","6.bmp","7.bmp","8.bmp","9.bmp","10.bmp","11.bmp","12.bmp",
                        "13.bmp","14.bmp","15.bmp","16.bmp","17.bmp", "18.bmp"};
 
    for (int i = 0; i <21; i++)
     {
         TBitBtn  *b = new TBitBtn(  this->Panel2  );
         b->Parent =  this->Panel2 ;
         b->Height=68; b->Width=67;
         b->Left = 4+(i%3)*67;
         b->Top  = 4+(i/3)*68;
         String n= ifiles[i];
 
         b->ShowHint=true;
         b->Cursor=crHandPoint;
         b->Hint = n.Delete(n.Pos("."),4);
 
         TImage *a = new TImage(0);
         a->Picture->LoadFromFile( "img/"+ ifiles[i]  );
         a->Stretch = true;
         b->Glyph = a->Picture->Bitmap ;
         b->DragMode=dmAutomatic;
      }
}

@kzru_hunter · 27.04.2012, 15:00

для BitBtn'ов задан обработчик OnClick?
если задан, то будет сложнее ситуация.

@zin · 27.04.2012, 15:26 **[ТС]**

нет ОnClik не задан. мне необходимо чтобы при нажатии на кнопке и перемещении ее на ячейку перемещалась не кнопка а ее событие , т.е создавалася копия кнопки.

@nick42 · 27.04.2012, 17:51

- уточни, что за "сетка, размещенная на форме", и что требуется туда перемещать

@zin · 27.04.2012, 18:03 **[ТС]**

сетка созданная из компонента Panel код:

C++
1
2
3
4
5
6
7
8
9
10
for (int  i = 0; i < 10; i++) {
  for (int j = 0; j <8; j++) {
    TPanel *p = new TPanel(  this->Panel1  );
    p->Parent = this->Panel1;
    p->Width =67;
    p->Height  =68;
    p->Left = i * p->Width;
    p->Top  = j * p->Height;
  }
}

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

@nick42 · 27.04.2012, 18:09

- как-то у тебя мудрёно всё... . и панели, и кнопки имеют одинаковые габариты... . То-есть методом DragDrop поперетаскивать все кнопки, что ли..? Лучше б скрин формы посмотреть.

@zin · 27.04.2012, 18:44 **[ТС]**

вот ссылка экзешника как должно быть , но у меня не получается

http://www.obmen55.ru/dl/gkxLTYZ3f02Ua6b9FcFQaw

@kzru_hunter · 27.04.2012, 20:55

Тогда получается вот такой код (на примере одной кнопки и одной панели):

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
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        // разрешить кнопке перетаскивание
        BitBtn1->DragMode = dmAutomatic;
}
//---------------------------------------------------------------------------
 
// Обработчик OnDragOver для Panel
void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
        Accept = true;
}
//---------------------------------------------------------------------------
 
 
// Обработчик OnDragDrop для Panel
void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
        TBitBtn *button = dynamic_cast<TBitBtn*>(Source);
        if (button)
        {
                button->Parent = (TWinControl*)Sender;
                button->Left = 0;
                button->Top = 0;
        }
}

@zin · 28.04.2012, 07:16 **[ТС]**

а Обработчик OnDragOver и Обработчик OnDragDrop для Panel применять для панельки где находится кнопка или для ппанельки где сетка??? а то у меня чета не не работает . и как сделать для всех кнопак????

Добавлено через 18 минут
с одной кнопой рааботает , но она при перемещении исчезает а мн нужно чтобы она перемещаясь не исчезала а как бы копировала свое ссвойство, так как я буду перетаскивать кнопки , много раз.вот этого мне нужно добиться ...

@kzru_hunter · 28.04.2012, 09:51

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

а мн нужно чтобы она перемещаясь не исчезала а как бы копировала свое ссвойство

создаешь кнопку на панели и присваиваешь ей свойства (Glyph и т.д.) копируемой кнопки

@zin · 28.04.2012, 13:49 **[ТС]**

что то я не могу понять , не могли ли вы на примере покать. буду блогадарен!!!!

@zin · 02.05.2012, 13:42 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int  i = 0; i < 10; i++)                                    // обработчик который создает панельки динамически при запуске программы
     {
        for (int j = 0; j <8; j++)
         {
            TPanel *p = new TPanel(  this->Panel1  );
            p->Parent = this->Panel1;
            p->Width =67;
            p->Height  =68;
            p->Left = i * p->Width;
            p->Top  = j * p->Height;
        }
    }

теперь мне необходимо сделать чтобы при перемещении кнопки она нанасилась на панельку , указанную курсором в любое место.

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
void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
      Accept = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
        TBitBtn *b = dynamic_cast<TBitBtn*>(Source);
                                                           //обработчик который наносит кнопку на панельки , 
                                                               но мне необходимо чтобы кнопки наносились на панельки которые создаются динамически при запуске программы. 
        if (b)
        {
                b->Parent = (TWinControl*)Sender;
 
                int a=Tag;
                for(int i=1;i>=Panel1->Tag==21;i++)
                {
                            b->Left =10*Panel1->Tag*100+1;
                   b->Top = 10*Panel1->Tag*100+1
                }
        }
}

Добавлено через 2 часа 48 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 0; i < 10; i++) // обработчик который создает панельки динамически при запуске программы
{
for (int j = 0; j <8; j++)
{
TPanel *p = new TPanel( this->Panel1 );
p->Parent = this->Panel1;
p->Width =67;
p->Height =68;
p->Left = i * p->Width;
p->Top = j * p->Height;
}
}

теперь мне необходимо сделать чтобы при перемещении кнопки она нанасилась на панельку , указанную курсором в любое место.

C++
1
2
3
4
5
void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source, int X, int Y,
TDragState State, bool &Accept)
{
Accept = true;
}

//обработчик который наносит кнопку на панельки ,
но мне необходимо чтобы кнопки наносились на панельки которые создаются динамически при запуске программы.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
TBitBtn *b = dynamic_cast<TBitBtn*>(Source);
if (b)
{
b->Parent = (TWinControl*)Sender;
 
int a=Tag;
for(int i=1;i>=Panel1->Tag==21;i++)
{
b->Left =10*Panel1->Tag*100+1;
b->Top = 10*Panel1->Tag*100+1
}
}
}

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	27.04.2012, 15:00
	для BitBtn'ов задан обработчик OnClick? если задан, то будет сложнее ситуация. 0

@zin 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 16
	27.04.2012, 15:26 [ТС]
	нет ОnClik не задан. мне необходимо чтобы при нажатии на кнопке и перемещении ее на ячейку перемещалась не кнопка а ее событие , т.е создавалася копия кнопки. 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.04.2012, 17:51
	- уточни, что за "сетка, размещенная на форме", и что требуется туда перемещать 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.04.2012, 18:09
	- как-то у тебя мудрёно всё... . и панели, и кнопки имеют одинаковые габариты... . То-есть методом DragDrop поперетаскивать все кнопки, что ли..? Лучше б скрин формы посмотреть. 0

@zin 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 16
	27.04.2012, 18:44 [ТС]
	вот ссылка экзешника как должно быть , но у меня не получается http://www.obmen55.ru/dl/gkxLTYZ3f02Ua6b9FcFQaw 0

@zin 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 16
	28.04.2012, 07:16 [ТС]
	а Обработчик OnDragOver и Обработчик OnDragDrop для Panel применять для панельки где находится кнопка или для ппанельки где сетка??? а то у меня чета не не работает . и как сделать для всех кнопак???? Добавлено через 18 минут с одной кнопой рааботает , но она при перемещении исчезает а мн нужно чтобы она перемещаясь не исчезала а как бы копировала свое ссвойство, так как я буду перетаскивать кнопки , много раз.вот этого мне нужно добиться ... 0

@zin 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 16
	28.04.2012, 13:49 [ТС]
	что то я не могу понять , не могли ли вы на примере покать. буду блогадарен!!!! 0