Карта сайтаСсылкиКонтакты

Как очистить выделенные пункты в StringGrid

PDF Печать
Статьи

Если Вы хотите избавиться от высвеченной ячейки в 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); 

По материалам http://delphi.3000.com


 

Добавить комментарий


Защитный код
Обновить