Delphi, Вопрос Поделиться Опции

[Serg c650]

у меня Delphi 7

Делаю так

В KeyDown:

If (ComboBox1.Text='F1') then
begin
Case Key Of
112: klavisha:=true;
end;
end;

If (ComboBox1.Text='F2') then
begin
Case Key Of
113: klavisha:=true;
end;
end;

А в таймер:

If klavisha=true then
begin
Form1.Color:=clred
end
else
begin
Form1.Color:=clblue;
end;
end;

Т. е. в ComboBox1 изменяем клавишу, но значение её остаётся (изменение цвета формы)!
Реакции же на клавиши не видно, форма постоянно синяя.
Я думаю что в KeyDown нужно что-то вместо If поставить.
ПОДСКАЖИТЕ ЧТО ДЕЛАТЬ!

[AgentSlash]

Я чёт не понял что ты делаешь. У тебя в комбобокс забиты всякие F1, F2.....И ты их мыхой выбираешь? Тогда

Case Key Of
112: klavisha:=true;
end;

никогда не сработает, бо клавиша с таким кодом не нажимается.

Если тебе нуна обрабатывать токо нажатие клавиш, то при чём сдесь If (ComboBox1.Text='F1').........
Тебе нуна просто сделать так:

Case Key Of
112: klavisha:=true;
113: klavisha:=false;
end;

[Serg c650]

AgentSlash, ты не так меня понял.

Пользователь будет сам настраивать в ComboBox нужную ему клавишу.

Порядок действий должен быть таким:
1. Пользователь выбирает клавишу F1
2. Нажимает F1, он видит что форма загарается красным
3. Выбирает F2
4. Нажимает F2 и видит что форма загорается красным, а нажимая любую другую клавишу нет.
То есть, пользователь выбирает КЛАВИШУ, нажимает ЕЁ, и видит эффект.

(Про цвет формы это для примера)

КАК ТОЛЬКО НАКОПЛЮ 50 ПОСТОВ ВСЕ, КТО ПОМОГ ПОЛУЧАТ ПЛЮС!

[Scalar]

Это ты пишешь в кейдаун какого объекта?

[Dosian]

Включи KeyPreview у формы! Я надеюсь, KeyDown относиться к главной форме? :)

[Serg c650]

Всем спасибо, но мне это уже не нужно (нашёл другой способ через VirtualKey).

Завтра ждите новую прогу! (Почему завтра? Потому что названия не могу придумать :) )

Тема закрыта!