Die Vorschläge haben bisher nicht viel genützt :
Delphi-Quellcode:
procedure Tfrm.FormMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
// inherited;
i := i + 1;
if ControlAtPos(Point (x,y),true,true) is TLabel then
Memo1.Lines.Add (IntToStr (i)+' Label')
else
Memo1.Lines.Add (IntToStr (i)+' kein Label')
end;
Egal, was ich mache : nur der else-Zweig wird durchlaufen. Ergo : im ControlAtPos ist ein Fehler.