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)