Запрет ввода StringGrid

@Artsiom11 · Регистрация: 27.11.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Не понимаю почему не работает следующая конструкция:

Delphi

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9', #8, #109]) then
    Key := #0;
end;

А точнее #109 со включенным Numlock, на любой раскладке клавиатуры.
Никак не вводится точка.

@teleprog · 27.11.2013, 03:54

Проверяй какой код у введеного символа, выводи в заголовок окна например. У точки вроде 46 код а не 109.

Delphi

1
2
3

  caption := IntToStr(Ord(Key));
 if not (Key in ['0'..'9','.', #8, #109]) then
    Key := #0;

Как варинт можешь попробовать сделать через
StringGrid1KeyDown(Sender: TObject; var Key: Word;
там все по кодам будет, и управляющие клавиши тоже будут работать.

	27.11.2013, 03:54