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

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

procedure TForm1.GridClean(Sender: TObject);

var hGridRect: TGridRect;

begin

  hGridRect. := -1;

  hGridRect.Left := -1;

  hGridRect.Right := -1;

  hGridRect.Bottom := -1;

  (Sender as TStringgrid).Selection := hGridRect;

end;

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

...

GridClean(MyGrid);

Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...