Menu z obrazkow

0

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

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??

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0