Доброй поры времени. Как этот код переделать для
TStringGrid
Код:
if (Key='.')and(Pos('.',TEdit(Sender).Text)<>0) then
Key:=#0;
он у меня для
TEdit есть и пашет норм. пробоваал сам сделать но незнаю что дописать.
Error-ры выкидывает. Всё работает в
OnKeyPress
Код:
if (Key='.')and(Pos('.',TStringGrid(Sender).Cells)<>0) then
Key:=#0;