Проблемы с процедурами 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: Если можно, напишите поподробнее.

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

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