[illya05]

Сообщение от angvelem

Для приложения из одной формы работает, но вы не описали, что и для чего нужно. Можно проверить так:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK)
  if Key = $33 then
    Key := 0;
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK)
end;

у вас синтаксическая ошибка, нало так

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK);
  if Key = $33 then
    Key := 0;
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK)
end;

ладно, а как чтобы когда программа скрыта, то кнопка "3" неработала (т.е. надимаеш например в текстовом поле, и ничего не происходит)