[link-oln]

Доброго всем времени суток!
У меня вот такая проблема:
когда я пытаюсь вписать в событие OnKeyUp в поле Edit следующий код:

Код:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If Key in ['A'..'z'] Then Key := #0;

end;

... то Делфя выдаёт следующую ошибку:
[Error] Unit1.pas(30): Incompatible types: 'Word' and 'Char'
Какие, вхрена, " Несовместимые типы "?! И причём там вообще Char?! Или я просто не знаю и в процедурах OnKeyUp(Down) какой то другой метод проверки клавиш нежели в OnKeyPress?
Вобщем жду советов, товарищи, и надеюсь на вас

[M.A.D.M.A.N.]

Ты числа с буквами пытаешься сравнить.
Два варианта:
1. Обрабатывать событие OnKeyPress (там Key передается как Char)
2. Заменить буквы на коды. (Byte('A') или $41 или как-нибудь по своему вкусу)

[Assistant]

чота я тут не то ляпнул, а удалить пост не смог ))

[link-oln]

Сообщение от M.A.D.M.A.N.

2. Заменить буквы на коды. (Byte('A') или $41 или как-нибудь по своему вкусу)

Если точнее то мне нужно проверять только клавишу запятой:
Нужно чтобы после отпускания клавиши одной булевой переменной присваевалось значение True. Не подскажите как мне провернуть?

[Xalexo]

Сообщение от link-oln

Если точнее то мне нужно проверять только клавишу запятой:
Нужно чтобы после отпускания клавиши одной булевой переменной присваевалось значение True. Не подскажите как мне провернуть?

Код:

upkey:= (key = 188);

[link-oln]

Спасибо Вам всем огромное!!! Мог-бы ещё кто-то предоставить ссылку где можно увидеть полный список кодов клавиш?

[Assistant]

могёте это посмотреть, если подойдет.

[link-oln]

Да, спасибо! Мои вопросы ищерпаны...
Думаю тема закрыта...