Как снять выделение в 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);

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 724 • TDictionary Custom Sort 6 724 • Fast Watermark Sources 6 507 • 3D Designer 9 446 • Sik Screen Capture 6 839 • Patch Maker 7 288 • Айболит (remote control) 7 231 • ListBox Drag & Drop 6 092 • Доска для игры Реверси 97 843 • Графические эффекты 7 407 • Рисование по маске 6 703 • Перетаскивание изображений 5 559 • Canvas Drawing 5 941 • Рисование Луны 5 718 • Поворот изображения 5 179 • Рисование стержней 3 783 • Paint on Shape 2 964 • Генератор кроссвордов 3 904 • Головоломка Paletto 3 104 • Теорема Монжа об окружностях 3 913 • Пазл Numbrix 2 577 • Заборы и коммивояжеры 3 371 • Игра HIP 2 312 • Игра Go (Го) 2 211 • Симулятор лифта 2 621 • Программа укладки плитки 2 204 • Генератор лабиринта 2 721 • Проверка числового ввода 2 360 • HEX View 2 696 • Физический маятник 2 373

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

Похожие по теме исходники