Potrzebuje sie dowiedzieć jak "wyczuć" czy myszka jest nad Label i na Image a kiedy nie jest. Jesli jest nad label to zmienia kolor tego label.
0
0
Spróbuj z MouseMove. Piszesz np. procedure Image1MouseMove(Sender: TObject; Shift:TShiftState; X,Y:integer);
a potem :
procedure TForm1.Image1MouseMove(Sender: TObject; Shift:TShiftState; X,Y:integer);
begin
{ Tutaj piszesz procedure zmiany koloru label }
end;
potem tylko dodajesz zdażenia Image1 w chyba OnMouseMove i powinno działać ;)
0
Lepiej wykorzystać zdarzenia OnMouseEnter i OnMouseLeave.
0
dla label
przyjmując, że standardowy kolor to czarny
procedure TForm1.Label8MouseLeave(Sender: TObject);
begin
label8.font.color:=clblack;
end;
procedure TForm1.Label8MouseEnter(Sender: TObject);
begin
label1.font.color:=clred;
end;
//poprawione
0
nie MouseMove tylko MouseEnter - po kiego grzyba wykonywać to samo x razy??