Как снять выделение в StringGrid?
Falk0ner, вс, 06/07/2008 - 15:34.
Следующий код можно использовать например в событии грида OnExit:
Если Вы хотете избавиться от выделенных ячеек 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;
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);
...
GridClean(MyGrid);
Взято из http://forum.sources.ru
Отправить комментарий