Helmi, das war schon mal richtig so.
Allerdings wird das Event 2mal ausgelöst. Das läßt sich aber leicht so beseitigen (inspired by Ch. Seehase) :
Delphi-Quellcode:
procedure Tfrm.lblMouseEnter(Sender: TObject);
begin
inherited;
// if ControlAtPos(Point (x,y),true,true) is TLabel then
showmessage ('Label');
end;
Mal sehen, ob ich das MouseLeave auch noch brauche. Allerdings wäre es noch gut, wenn einer wüßte, wie ich dieses Verhalten ALLEN Labels beibringe.