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