Label-Position auswerten

[Hansa]

Christian, das würde bedeuten, sämtliche Labels umzubauen. Ich muß die auch schon zur Designzeit rumschieben können. Was ist denn hierdran verkehrt :

Delphi-Quellcode:

procedure Tfrm.FormMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  i := i + 1;
  if ControlAtPos(Point (x,y),true,true) = TLabel (Sender) then     
    Memo1.Lines.Add (IntToStr (i)+' Label')
  else
    Memo1.Lines.Add (IntToStr (i)+' kein Label')
end;

Wandere ich auf der Form rum, dann wird der else Zweig durchlaufen. Bewege ich die Maus über einem Label, so passiert absolut nichts. Habe deshalb das i mit eingebaut. Es ist also kein Sehfehler. 8)