StringGrid Canvas

[Djaconda]

как в определенной ячейки StringGrid нарисовать что нибуть с помощью свойства Canvas

я вот пробую неполучаетьмя

procedure TForm1.StringGrid1OnDrawCell(Sender: TObject;  ACol, ARow :integer; Rect : TRect;  State : TGridDrawState);
begin
   if (ACol = 1) and (ARow = 1) then
   begin
   StringGrid1.Canvas.FillRect(Rect);
   StringGrid1.Canvas.Pen.Color:=clBlack;
   StringGrid1.Canvas.Ellipse(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
   end;
end;

[AVer]

А что именно не получается?

[Djaconda]

забыл просто прописать var Rect : TRect тему можно закрывать.

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

[SERG1980]

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

забыл просто прописать var Rect : TRect тему можно закрывать.

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

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin

end;

[Djaconda]

так просто. спасибо.