[@gamerfox]

Всем привет, возникла трудность при работе со StringGrid'oм. Нужно сделать так чтобы в определенные столбцы таблицы (кроме первых строк) нельзя было ввести буквы, можно пример такое реализации кода? Или подскажите где копать.

[@Mawrat]

Такой механизм можно реализовать, например, так. Для TstringGrid нужно определить обработчики событий: OnGetEditText, OnKeyPress, OnSetEditText и оформить их код таким образом:

Delphi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 implementation   {$R *.dfm}   const   //Запрещённые символы.   D = ['А'..'п', 'р'..'я', 'Ё', 'ё', 'A'..'Z', 'a'..'z'];   //Перечень индексов проверяемых столбцов и строк.   DCol = [1, 3];   DRow = [1, 3]; var   //Координаты редактируемой ячейки.   Coord : record     Col, Row : Integer;   end;   //Событие, возникающее при начале редактирования ячейки. procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,   ARow: Integer; var Value: String); begin   //Запоминаем координаты редактируемой ячейки.   Coord.Col := ACol;   Coord.Row := ARow; end;   //Обработка нажатий клавиш. procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin   //Если координаты редактируемой ячейки не совпадают с заданными, то выходим.   if not ( (Coord.Col in DCol) and (Coord.Row in DRow) ) then Exit;   //Отменяем ввод запрещённых символов.   if Key in D then Key := #0; end;   //Событие, возникающее при записи очередного символа в ячейку. //Обрабатывать это событие, в данном случае, нужно для того, чтобы предусмотреть //случай, когда пользователь выполнил вставку текста в ячейку через буфер обмена. procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,   ARow: Integer; const Value: String); var   Sg : TStringGrid;   S : String;   i, j, Len : Integer; begin   //Если координаты редактируемой ячейки не совпадают с заданными, то выходим.   if not ( (Coord.Col in DCol) and (Coord.Row in DRow) ) then Exit;     Sg := Sender as TStringGrid;   Len := Length(Value);   SetLength(S, Len);   //Переписываем в S только разрешённые символы.   j := 0;   for i := 1 to Len do     if not (Value[i] in D) then begin       Inc(j);       S[j] := Value[i];     end;   //Если S отличается от Value, то записываем значимую часть S в ячейку.   if j < Len then     Sg.Cells[ACol, ARow] := Copy(S, 1, j); end;   end.

Этот код запрещает ввод запрещённых символов в ячейки, которые расположены на пересечении заданных строк и столбцов.
Если требуется запретить ввод для целых строк и столбцов (а не только для их пересечений), то условие:

Delphi
1 2   //Если координаты редактируемой ячейки не совпадают с заданными, то выходим.   if not ( (Coord.Col in DCol) and (Coord.Row in DRow) ) then Exit;

надо заменить на:

Delphi
1 2   //Если ячейка не принадлежит заданным столбцам и строкам, то выходим.   if not ( (Coord.Col in DCol) or (Coord.Row in DRow) ) then Exit;

[@gamerfox]

Вопросик, с таким кодом у меня все равно вводятся буквы, но когда я поменял условие

Delphi
1 2 3 const   //Запрещённые символы.   D = ['А'..'п', 'р'..'я', 'Ё', 'ё', 'A'..'Z', 'a'..'z'];

на

Delphi
1 2 3 const   //Запрещённые символы.   D = ['А'..'Я','а'..'я','A'..'Z','a'..'z']

теперь у меня не вводятся английские символы, а русские вводятся, в чем может быть дело?

Добавлено через 1 час 4 минуты
СПС, но раскурил сам, сделал так

Delphi
1 2 if (Ord(Key) >= Ord('0')) and  (Ord(Key) <= Ord('9'))or (key=#8) then key:=key   else key:=#0;

теперь все как надо

[@Mawrat]

gamerfox, я проверял код (и сейчас ещё раз проверил) - у меня чётко отрабатывает. - Буквы в заданные ячейки не вводятся. На всякий случай прикладываю архивы с проектами:
01-Ограниченный ввод на пересечениях строк и столбцов.rar - столбцы с индексами: [0, 1], строки: [0, 1].
02-Ограниченный ввод в заданных строках и столбцах.rar - столбцы с индексами: [0, 1], строки: [0].