Label-Position auswerten

[Helmi]

Hallo,

das Event "Tfrm.FormMouseMove" wird ja nur ausgelöst, wenn du dich mit der Maus direkt auf der Form bewegst.
Bewegst du aber die Maus auf ein Label, bist du nicht mehr direkt auf der Form, sondern eben auf diesem Label und nun wird dort (auf diesem Label) das Event "OnMouseMove" ausgelöst.

Ich hab einfach mal folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.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;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Memo1.Lines.Add('LABEL');
end;

Bin ich mit der Maus auf der Form bekomm ich "kein Label". Bin ich aber mit der Maus auf dem Label2, dann erhalt ich "LABEL".