Menu z obrazkow

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.

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ć ;)

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

nie MouseMove tylko MouseEnter - po kiego grzyba wykonywać to samo x razy??