Как снять выделение в 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 662 • TDictionary Custom Sort 6 668 • Fast Watermark Sources 6 451 • 3D Designer 9 382 • Sik Screen Capture 6 784 • Patch Maker 7 192 • Айболит (remote control) 7 181 • ListBox Drag & Drop 6 029 • Доска для игры Реверси 97 653 • Графические эффекты 7 354 • Рисование по маске 6 655 • Перетаскивание изображений 5 512 • Canvas Drawing 5 895 • Рисование Луны 5 638 • Поворот изображения 5 124 • Рисование стержней 3 718 • Paint on Shape 2 928 • Генератор кроссвордов 3 833 • Головоломка Paletto 3 069 • Теорема Монжа об окружностях 3 881 • Пазл Numbrix 2 553 • Заборы и коммивояжеры 3 294 • Игра HIP 2 260 • Игра Go (Го) 2 181 • Симулятор лифта 2 575 • Программа укладки плитки 2 189 • Генератор лабиринта 2 692 • Проверка числового ввода 2 340 • HEX View 2 675 • Физический маятник 2 326

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

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