StringGrid

  1. Закрашивание отдельной ячейки
  2. Очистка ячеек в StringGrid (вариант 1)
  3. Очистка ячеек в StringGrid (вариант 2)
  1. Закрашивание отдельной ячейки

    // для закрашивания отдельной ячейки в StringGrid напишите
    // следующий обработчик события OnDrawCell StringGrid
    // (Form1 - форма, на которой размещен StringGrid1,
    // StringGrid1 - экземпляр TStringGrid, ячейка которого
    // закрашивается):
    void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
    int ARow, TRect &Rect, TGridDrawState State)
    {
    if (ACol == 2 && ARow == 2) // определяем конкретную ячейку
    {
    StringGrid1->Canvas->Brush->Color = clRed;
    StringGrid1->Canvas->FillRect(Rect);
    }
    }

  2. Очистка ячеек в StringGrid (вариант 1)

    // Для очистки содержимого ячеек в StringGrid (TStringGrid)
    // напишите следующий обработчик (StringGrid1 - сетка,
    // в которой очищаем ячейки, Button1 - кнопка на форме):
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
    for(int i = 0; i < StringGrid1->ColCount; i++)
    for(int j = 0; j < StringGrid1->RowCount; j++)
    StringGrid1->Cells[i][j] = "";
    }

  3. Очистка ячеек в StringGrid (вариант 2)

    // Для очистки содержимого ячеек в StringGrid (TStringGrid)
    // напишите следующий обработчик (StringGrid1 - сетка,
    // в которой очищаем ячейки, Button1 - кнопка на форме):
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
    for(int i = 0; i < StringGrid1->RowCount; i++)
    StringGrid1->Rows[i]->Clear();
    }

Наверх
Hosted by uCoz