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

Недавно добавленные исходники
• Animation Loaders 923 • DeLiKaTeS Tetris (Тетрис) 5 869 • TDictionary Custom Sort 7 815 • Fast Watermark Sources 7 489 • 3D Designer 10 724 • Sik Screen Capture 8 041 • Patch Maker 8 249 • Айболит (remote control) 8 300 • ListBox Drag & Drop 7 118 • Доска для игры Реверси 100 854 • Графические эффекты 8 366 • Рисование по маске 7 743 • Перетаскивание изображений 6 343 • Canvas Drawing 6 712 • Рисование Луны 6 646 • Поворот изображения 5 780 • Рисование стержней 4 721 • Paint on Shape 3 428 • Генератор кроссвордов 4 410 • Головоломка Paletto 3 554 • Теорема Монжа об окружностях 4 354 • Пазл Numbrix 2 819 • Заборы и коммивояжеры 3 771 • Игра HIP 2 540 • Игра Go (Го) 2 539 • Симулятор лифта 2 935 • Программа укладки плитки 2 361 • Генератор лабиринта 3 112 • Проверка числового ввода 2 597 • HEX View 3 001

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

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