[illya05]

кпримеру надо отключить кнопку '3' во время программы!

как ето сделать???

[angvelem]

Enabled/Disabled и справка.

[illya05]

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

Enabled/Disabled и справка.

я имею ввиду - что нада отключить кнопку на клавиятуре!

как при регистрации ноткей отключают, также и мне надо но с кнопкой

[angvelem]

Если для конкретной программы, то событие формы OnKeyDown.

[illya05]

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

Если для конкретной программы, то событие формы OnKeyDown.

можете привести пример (код)

[angvelem]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = $33 then
    Key := 0;
end;

у форму KeyPreview выставить в True.

[illya05]

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

у форму KeyPreview выставить в True.

непонял

[angvelem]

Сколько вы занимаетесь программированием? У формы имеется свойство KeyPreview.

[illya05]

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

Сколько вы занимаетесь программированием? У формы имеется свойство KeyPreview.

годик где-то

просто с таким не сталкмвался

[illya05]

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

Сколько вы занимаетесь программированием? У формы имеется свойство KeyPreview.

неработает

[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;

[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" неработала (т.е. надимаеш например в текстовом поле, и ничего не происходит)

[angvelem]

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

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

Ну-ну. Не я, ни Дельфи обнаружить её не смогли.

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

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

Вот этого я и ждал. Не знаю целей, преследуемых вами, но обсуждать решение не буду. Подскажу только одно, читайте про глобальные хуки.

[illya05]

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

Ну-ну. Не я, ни Дельфи обнаружить её не смогли.


Вот этого я и ждал. Не знаю целей, преследуемых вами, но обсуждать решение не буду. Подскажу только одно, читайте про глобальные хуки.

цель:
в игре кнопки (1, 2, 3) включение припасов, так вот- надо чтоб при включиной проге, 3 кнопки неработали (чтоб припасы неработали)

[robt]

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

цель:
в игре кнопки (1, 2, 3) включение припасов, так вот- надо чтоб при включиной проге, 3 кнопки неработали (чтоб припасы неработали)

а ты их не нажимай,они и работа ть не будут