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

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

← →
Демон   (2002-06-04 19:01) [0]

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

---

← →
Song ©   (2002-06-04 19:12) [1]

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;

---

← →
Демон   (2002-06-04 19:45) [2]

шпасиба!

---

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

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



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