Блокировка кнопок

[Михаил Юрьевич]

Подскажите код если есть,что-бы при открытии формы заблокировать
на клавиатуре все кнопки кроме цыфр и Enter

[AlDelta]

А не проще ли обрабатывать нажатия этих самых неугодных клавиш клавиатуры. KeyPress.

Поиск по форуму.

[Stilet]

+1
Если нужно заблокировать для всех окон в системе то ставить хук.

[Михаил Юрьевич]

Если можно напишите пример

[Istergul]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
  неугодная клавиша:key:=char(0);
  ...
end;

ты это хотел увидеть? нет?

[AlDelta]

Istergul ты их все так будешь перебирать?

if not (key in ['0'..'9']) then key:=Chr(0);

Михаил Юрьевич допишешь в проверку код Entera.

[Михаил Юрьевич]

Извените за тупизм,но подскажите как реально при открытой форме
отключить CTRL и ALT,именно что-бы форма была открыта а кнопки
не нажимались

[AlDelta]

при открытой форме
отключить CTRL и ALT,именно что-бы форма была открыта а кнопки
не нажимались

Не нажимались, то есть их физически нельзя нажать? Только с бубном вокруг клавиатуры ходить.

Информация к размышлению...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
Key:=32;
ShowMessage(IntToStr(Key));
end;

[Stilet]

о-о-о так с этого и нужно было начинать вопрос.
А теперь скажи зачем тебе нужно отключать эти кнопки и от кого?

[Istergul]

AlDelta, почему же все перебирать?)
можно так:

case key of  
  #8..#49:key:=char(0);   
  #58..#127:key:=char(0);
  ...   
end;

тут правда только на англиш . коды ASCII русских клавиш просто не помню