Премного благодарен уважаемые форумчане за ответы! В результате поиска по OnDrawCell наткнулся на старый топик http://forum.vingrad.ru/forum/topic-31653/unread-1.html где г-н p0s0l даёт готовый рабочий код решения проблемы
| Цитата | Ан нет, поспешил я - там его дорабатывать надо... Можно так попробовать:| Код | procedure MyProc(S : TStringGrid); var gr : TGridRect; begin FillChar (gr, SizeOf(gr), -1); S.Selection := gr; end;
procedure TForm1.StringGrid1Exit(Sender: TObject); begin MyProc (Sender as TStringGrid); end;
procedure TForm1.FormCreate(Sender: TObject); begin MyProc (StringGrid1); MyProc (StringGrid2); ... end; |
Т.е. вешаем на OnExit обработчик (единый для всех гридов) и в OnCreate формы убираем выделение...
Чуть не забыл: goRangeSelect = False, goDrawFocusSlected = False, goRowSelect = False
|
|