Тема: с TEdit в TStringGrid
Показать сообщение отдельно
  #2  
Старый 18.04.2012, 20:23
Pyro Pyro вне форума
Так проходящий
  
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию
Код:
with TStringGrid(Sender) do
  if (Key='.')and(Pos('.',Cells[col,row])<>0) then
    Key:=#0;
Ответить с цитированием