![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблемы с процедурами Enter и Leave [Delphi, Windows]
Мякс © (2003-08-24 13:30:00)Я хочу сделать, чтобы при наведении мыши на строку, цвет её шрифта менялся, а при покидании мыши становился прежним. Код такой:
procedure Tform1.Label1MouseEnter(Sender: PObj);
begin
Label1.Font.Color:=clYellow;
end;
procedure Tform1.Label1MouseLeave(Sender: PObj);
begin
Label1.Font.Color:=clLime;
end;
В итоге проиходит следующее: первая процедура выполняется всего один раз, а вторая - ни разу, как мышью не елозь. Не могу понять в чём дело, помогите, пожалуйста.
Мякс (2003-08-27 11:57:00) [1]2Кладов: Win98, Delphi 7, Kol 1.70
2Gandalf: Если можно, напишите поподробнее.
Спасибо всем. Странно, но иногда эти процедуры работают корректно, а потом без всякой видимой причины начинают глючить.
Gandalf (2003-08-25 14:49:00) [2]Такое было в старом KOL, вызови InitCommonControls....
Кладов (2003-08-24 14:34:00) [3]у меня работает. ОС? Delphi? KOL? версии?