motofan logo
> 

Delphi, Вопрос

Serg c650
сообщение 12.5.2006, 14:55


Поэт?!
*****

Группа: Пользователи
Сообщений: 319
Регистрация: 26.10.2005
Пользователь №: 55 954
Модель телефона: Fly-Ying F003

Рейтинг: 87



у меня 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 поставить.
ПОДСКАЖИТЕ ЧТО ДЕЛАТЬ!
Юзер вышелВ друзьяВизиткаП/Я
К началу страницы
+Ответить

Сообщений в этой теме

Delphi, Вопрос · Ломаем и строим! · Forum
 

Причина закрытия (Serg c650 13-05-2006): мне это уже не нужно
Закрытая темаСоздание новой темы
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Текстовая версия Сейчас: 31.7.2025, 3:11

Форум живёт: 8099 дней