Сделать горячие клавиши - Помощь студентам

arhiepiskop · 09.12.2013, 20:18

Нужно сделать горячие клавиши, причем они могут меняться (в настройках приложения)

Пробую такой код но упорно выдает ошибку, что не так не пойму, ведь k1 и k2 типа word, а он все равно ругается!

Код:

var 
     k1,k2:word; //Коды горячих клавиш, присваиваются исправно (проверил в отладке)
.
.
.
.
procedure TForm_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If ((GetKeyState(k1) AND 128)=128)
    and
    ((GetKeyState(k2) AND 128)=128)
      then
  begin

    ShowMessage('All OK');
  end;
end;

Выдает [Error] Unit_main.pas(215): 'Word' is not a type identifier

Stilet · 09.12.2013, 20:27

Word это не идентификатор типа. Это слово у тебя в программе где-то уже переопределено.

arhiepiskop · 09.12.2013, 21:06

Действительно! Спасибо!
Только вот реакции 0(( ничего не происходит при нажатии этих клавиш.
Даже если поменять k1 и k2 на определенные цифры(16 и 65 допустим) - ничего

09.12.2013, 20:18	#1
arhiepiskop Пользователь Регистрация: 26.11.2009 Сообщений: 19	Сделать горячие клавиши Нужно сделать горячие клавиши, причем они могут меняться (в настройках приложения) Пробую такой код но упорно выдает ошибку, что не так не пойму, ведь k1 и k2 типа word, а он все равно ругается! Код: `var k1,k2:word; //Коды горячих клавиш, присваиваются исправно (проверил в отладке) . . . . procedure TForm_main.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If ((GetKeyState(k1) AND 128)=128) and ((GetKeyState(k2) AND 128)=128) then begin ShowMessage('All OK'); end; end;` Выдает [Error] Unit_main.pas(215): 'Word' is not a type identifier Последний раз редактировалось arhiepiskop; 09.12.2013 в 21:30.

09.12.2013, 20:27	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Word это не идентификатор типа. Это слово у тебя в программе где-то уже переопределено. I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка undeclared identifier FieldByName	Anariem	Общие вопросы Delphi	1	12.05.2013 16:02
С++ not implemented in type 'istream' for arguments of type 'float *'из-за чего эта ошибка и как исправить?	Mitax-47	Помощь студентам	1	10.05.2013 15:48
Ошибка такая: [DCC Error] Translit.pas(238): E2005 'Word' is not a type identifier	Кристинка89	Помощь студентам	1	03.12.2011 00:49
Ошибка Undeclared identifier: 'Locate'	Valeria15	БД в Delphi	7	22.08.2011 13:21
Ошибка Undeclared Identifier 'edit1'.	kote404	Помощь студентам	1	19.05.2011 23:00

09.12.2013, 21:06	#3
arhiepiskop Пользователь Регистрация: 26.11.2009 Сообщений: 19	Действительно! Спасибо! Только вот реакции 0(( ничего не происходит при нажатии этих клавиш. Даже если поменять k1 и k2 на определенные цифры(16 и 65 допустим) - ничего