Как снять выделение в StringGrid?

Если Вы хотете избавиться от выделенных ячеек TStringGrid, которые не имеют фокуса либо используются только для отображения данных, то попробуйте воспользоваться следующей небольшой процедурой.

procedure TForm1.GridClean(Sender: TObject); 
var hGridRect: TGridRect; 
begin 
   hGridRect.Top := -1; 
   hGridRect.Left := -1; 
   hGridRect.Right := -1; 
   hGridRect.Bottom := -1; 
   (Sender as TStringgrid).Selection := hGridRect; 
end; 


Следующий код можно использовать например в событии грида OnExit:

var MyGrid: TStringGrid; 
... 
GridClean(MyGrid);

Производство щитов ГРЩ в Москве.

салон красоты юго-западная купить и салон красоты на варшавке .

---