Das ControlAtPos hört sich gut an. Nur bringt so was :
Delphi-Quellcode:
procedure Tfrm.FormMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
if ControlAtPos(Point (x,y),false) = TLabel (Self) then
showmessage ('asdsaf');
end;
keinerlei Reaktion. Das MouseMove wird allerdings schon angesprochen. Lasse ich die if Abfrage weg, so kommt die showmessage. Da liegt also der Hund begraben. Nur wo ?
