Скачать: CL | DM;

Проблемы с процедурами Enter и Leave   Найти похожие ветки 

← →
Мякс   (2003-08-24 13:30) [0]

Я хочу сделать, чтобы при наведении мыши на строку, цвет её шрифта менялся, а при покидании мыши становился прежним. Код такой:

procedure Tform1.Label1MouseEnter(Sender: PObj);
begin
 Label1.Font.Color:=clYellow;
end;

procedure Tform1.Label1MouseLeave(Sender: PObj);
begin
 Label1.Font.Color:=clLime;
end;

В итоге проиходит следующее: первая процедура выполняется всего один раз, а вторая - ни разу, как мышью не елозь. Не могу понять в чём дело, помогите, пожалуйста.

---

← →
Кладов   (2003-08-24 14:34) [1]

у меня работает. ОС? Delphi? KOL? версии?

---

← →
Gandalf ©   (2003-08-25 14:49) [2]

Такое было в старом KOL, вызови InitCommonControls....

---

← →
Мякс   (2003-08-27 11:57) [3]

2Кладов: Win98, Delphi 7, Kol 1.70

2Gandalf: Если можно, напишите поподробнее.

Спасибо всем. Странно, но иногда эти процедуры работают корректно, а потом без всякой видимой причины начинают глючить.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c