Подскажите почему код не работает ?
Код:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
rect:TRect;
begin
Rect:=StringGrid1.CellRect(ACol,ARow);
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(Rect);
end;
Admin: Не забываем про оформление кода!