Подсветка

[Патрон]

Подскажите пожалуйста. Как по навидении мышки допустим на Label1, Label1 загоралась другим цветом например красным???

[ERASERROR]

у label по событию onmousemove менять цвет в параметре font допустим в синий, а у формы в событий onmousemove менять все обратно.

[RealSHELS]

А можно в label при onmouseleave менять обратно, а форму не трогать.

[Патрон]

Я что то не понял. На событие OnMouseMove что надо прописать???
Или вообще что там именно надо сделать?
Просто про это событие я знаю, но что там именно надо прописывать даже непредставляю.

[xakkkkker]

Сообщение от Патрон

Я что то не понял. На событие OnMouseMove что надо прописать???
Или вообще что там именно надо сделать?
Просто про это событие я знаю, но что там именно надо прописывать даже непредставляю.

Держи код

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

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

[RealSHELS]

А почему нельзя так:

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

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblack;
end;

[Патрон]

СПАСИБО БОЛЬШОЕ! Все работает

[Gorychev]

MouseEnter лучше, меньше нагрузка на систему

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
lblExit.Font.Color:= clLime;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
lblExit.Font.Color:= clBlack;
end;