| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Про мышку, когда она над кем-то находится

Демон ©   (2002-06-04 19:01:00) 

Здрасти!
Подскажите мне, пж-ста. Как сделать так, чтобы когда мышка находится, допустим, над Лабелом, то он менял цвет, когда уходит с него цвет обратно восст-ся бы!
Спасибо

---

Демон   (2002-06-04 19:45:00) [1]

шпасиба!

---

Song   (2002-06-04 19:12:00) [2]

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=ClRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=ClWindowText;
end;

---

Наверх