Текущий архив: 2003.09.29;
Скачать: CL | DM;

Вниз

Key Down   Найти похожие ветки 

← →
Opera ©   (2003-09-17 01:48) [0]

Помогите пишу:
if Key = VK_DOWN then
begin
if Form1.Panel1.Font.Color=clBlue then
begin
Deselect;
Form1.Panel2.Font.Color:=clBlue
end;
if Form1.Panel2.Font.Color=clBlue then
begin
Deselect;
Form1.Panel3.Font.Color:=clBlue

по нажатию у меня получается и Panel2 и Panel3 становятся синими помогите как сделать чтобы по нажатию происходило 1 условие (синяя становилась панель2), а уже после второго нажатия панель3! На deselect у меня все панели становятся белыми!

---

← →
_Dllma   (2003-09-17 02:08) [1]

Перепиши первое условие так:

if (Form1.Panel1.Font.Color=clBlue) then
begin
deselect;
Form1.Panel2.Font.Color:=clBlue;
exit;
end;


---

← →
Opera ©   (2003-09-17 02:48) [2]

Спасибо все работает!

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c