Запрет ввода с клавиатуры

[DoGFoX]

вот код

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key <> #8 then
  begin //позволить удаление знаков клавишей 'Back Space'
    case Key of
      '0'..'9', #181: key := key;//если нажата цифра, то ничего не делаем
    else
      Key := #0; //"погасить" все остальные клавиши
    end;
  end;
end;

Проблема в том, что символ #181 не вводится с клавиатуры.... с чем это связано??? Как сделать, чтобы всё заработало??

[p51x]

Кто такой #181?

[DomiNick]

Эм... Это кажется первый символ от µTorrent...
И как же вы его "вводите"? о__О
На моей клавиатуре такого нет...

[kangreon]

Для ввода буквы «µ» в системах семейства Windows, необходимо зажать клавишу Alt и набрать на цифровой части клавиатуры цифры 0181 (код буквы «µ» в стандартной кодировке Windows), после чего отпустить клавишу Alt .

[DoGFoX]

#181 вроде , <

или я чего то напутал??

[DomiNick]

Всмысле запятая? Или скобка?

Ну так можно же элементарно проверить...

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=#181;
end;

А вот это кстати немного озадачило:

... key := key;//если нажата цифра, то ничего не делаем

%)

И вообще какой-то странный код... Я б вот так сделал:

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