Wykrycie kursora nad Panel

0

Cześć, jak wykryć że kursor jest na komponentem TPanel. Chodzi mi o jak najłatwiejszy kod żeby nie obciążał programu, bo takich Paneli będę miał około 70 :)

0

nie wiem czy Panel ma takie zdarzenia ( np Button ma ) bo nigdy nie sprawdzałem ale jeśli ma to powinny być bardzo pomocne

nazwy są w stylu
OnMouseMove
OnMouseEnter
OnMouseExit

0

Na przykład taki kod pokaże na pasku tytułowym formularza nazwę komponentu typu TPanel, nad którym aktualnie
znajduje się kursor myszka. I zdarzenie te możesz użyć również dla komponentów tworzonych dynamicznie.

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  S : string;
begin
with Sender as TPanel do
S := Name;
Caption := S;
end;

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