Массив Panel

@rgnrok · Регистрация: 23.02.2011

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

Добрый день, есть динамический массив панелей

C++
1
2
3
4
5
6
7
8
9
10
11
12
TPanel *p[6][6];      int i,j;
 
      for (i=0; i<6; ++i)
        for (j=0; j<6; ++j)
 {           p[i][j]=new TPanel(Form1);
              p[i][j]->Parent=Form1;
              p[i][j]->Top=50*i;
              p[i][j]->Left=50*j;
              p[i][j]->Width=50;
              p[i][j]->Height=50;
              p[i][j]->Color=clGreen;
    }

Нужно по шелчку мыши на панели закрашивать один элемент, с Билдером я очень сильно на ВЫ, поэтому почти ичего не знаю, пробывал создать свою функцию, но что-то не так там

C++
1
2
3
4
5
6
7
p[i][j]->OnClick=MyOnClick;
 
void __fastcall TForm1::MyOnClick(TObject *Sender)
{
    TPanel *Panel;
    Panel->Color=clBlack;
}

( может и саму идею не правильно делаю)
Прошу помощи, кто может направте на путь праведный.
Спасибо

@NiTan · 23.02.2011, 14:32

В Unit1.h нужно обьявить нашу функцию:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        void _fastcall PClick(TObject*Sender); //Обьявили нашу функцию клика по панели
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::PClick(TObject *Sender)  //Описание нашей функции
{
((TPanel*)Sender)->Color=clBlack;  //Меняем цвет панели, на который произошел клик на черный.
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPanel *p[6][6];
 
      for (int i=0; i<6; ++i)
        for (int j=0; j<6; ++j)
 {           p[i][j]=new TPanel(Form1);
              p[i][j]->Parent=Form1;
              p[i][j]->Top=50*i;
              p[i][j]->Left=50*j;
              p[i][j]->Width=50;
              p[i][j]->Height=50;
              p[i][j]->Color=clGreen;
              p[i][j]->OnClick=PClick;
    }
}
//---------------------------------------------------------------------------

cpp_developer · 23.02.2011, 14:33

а для чего двумерный массив ?

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::MyOnClick(TObject *Sender)
{
    for(int i = 0; i < ComponentCount; i++) { 
    TPanel* Panel; 
    Panel = dynamic_cast<TPanel*>(Components[i]); // некое значение i
    if(Panel) {Panel->Color=clBlack;}
  }
}

Можно использовать и Tag

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for (j=0; j<6; ++j) {
    p[i][j]=new TPanel(Form1);
  p[i][j]->Parent=Form1;
  p[i][j]->Top=50*i;
  p[i][j]->Left=50*j;
  p[i][j]->Width=50;
  p[i][j]->Height=50;
  p[i][j]->Color=clGreen;
  p[i][j]->Tag = i+j;
}
...  
for(int I = 0; i< ComponentCount; i++) 
  if(Components[i]->Tag == SomeTag) {
    Panel->Color=clBlack;
  }

@rgnrok · 23.02.2011, 14:48 **[ТС]**

NiTan, спасибо, в h файле ф-я была, оказывается само тело функции было некорректным.
LK, данный метод пока для меня еше тяжеловат, конешно так и кода меньше и и наверника рациональней, но для начала всеже двойной массив более четче и ясней для меня, но все же спасибо)

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

@kzru_hunter · 23.02.2011, 16:03

По-моему с помошью DrawGrid намного проще сделать. Для закрашивания ячеек нужно всего лишь 2 строчки в обработчике события OnSelectCell:

C++
1
2
        DrawGrid1->Canvas->Brush->Color = clBlack;
        DrawGrid1->Canvas->FillRect(DrawGrid1->CellRect(ACol, ARow));

@rgnrok · 23.02.2011, 20:05 **[ТС]**

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  int k=0,p1=0,p2=0;                                                  //Создание счетчика и флагов 
  while (k<36)
        {    for (i=0; i<6;++i)
              {  for (j=0; j<6; ++j)
                      {  if(p[i][j]->Color==clGreen) p1=1;                  //Проверяет цвет панели до вызова ф-и
                        else if(p[i][j]->Color==clBlack) p1=2;              //и устанавливает флаги
                             else p1=3;
                             if(k%2==0)                                            //если счетчик четный
                        {p[i][j]->OnClick=MyOnClickB;}                        //красит черным при шелчке
                        else  {p[i][j]->OnClick=MyOnClickW;}                //иначе белый
                        if(p[i][j]->Color==clGreen) p2=1;                      //Проверяет цвет после ф-и
                        else if(p[i][j]->Color==clBlack) p2=2;
                             else p2=3;
                        if(p1!=p2) break; }                                  //если цвета не равны выходит из цикла
                        if(p1!=p2) break;  }
                                      ++k;}                              //увеличивает счетчик

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::MyOnClickW(TObject *Sender)
{
        if (((TPanel*)Sender)->Color==clGreen)
  {  ((TPanel*)Sender)->Color=clWhite;
  }
}
//===========================================================
void __fastcall TForm1::MyOnClickB(TObject *Sender)
{
        if (((TPanel*)Sender)->Color==clGreen)
  {  ((TPanel*)Sender)->Color=clBlack;
  }
}

Получатся, что красит все время MyOnClickW почему не пойму.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@rgnrok 0 / 0 / 0 Регистрация: 23.02.2011 Сообщений: 12
	23.02.2011, 14:48 [ТС]
	NiTan, спасибо, в h файле ф-я была, оказывается само тело функции было некорректным. LK, данный метод пока для меня еше тяжеловат, конешно так и кода меньше и и наверника рациональней, но для начала всеже двойной массив более четче и ясней для меня, но все же спасибо) Еще один вопрос, поле создается для игры реверси, интересует правильноссть выбранного пути (реально ли с помощью панелей это сделать, и не будет ли сильно муторно), просто сперва делал с помощью DrawGrid, и как-то показалось оно сложноватым, поэтому перешел на этот способ. 0