Раскраска StringGrid нажатием

[dypel]

Необходимо сделать так, чтобы ячейки StringGrid закрашивались в красный цвет по нажатию на ячейку (и следующее нажатие закрашивет еще одну ячейку)
Так же изначально ячейки заполнены 0, а при нажатии 0 заменяется на 1.
Помогите, пожалуйста, я только начал изучать C++ Builder.

[DpolenST]

// добавить в OnClick:

if(((TStringGrid *)Sender)->Cells[((TStringGrid *)Sender)->Col][((TStringGrid *)Sender)->Row] == "1")
  ((TStringGrid *)Sender)->Cells[((TStringGrid *)Sender)->Col][((TStringGrid *)Sender)->Row] = "0";
else ((TStringGrid *)Sender)->Cells[((TStringGrid *)Sender)->Col][((TStringGrid *)Sender)->Row] = "1";

// добавить в OnDrawCell:

if(((TStringGrid *)Sender)->Cells[ACol][ARow] == "1")
 ((TStringGrid *)Sender)->Canvas->Brush->Color = clLime;
else  ((TStringGrid *)Sender)->Canvas->Brush->Color = clRed;
((TStringGrid *)Sender)->Canvas->FillRect(Rect);

Раз ты новичок, то можешь заменить все "((TStringGrid *)Sender)" на имя своего StringGrid'a.

[dypel]

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

Раз ты новичок, то можешь заменить все "((TStringGrid *)Sender)" на имя своего StringGrid'a.

Благодарю Вас за помощь