Label unter Mausposition

[Lilo]

Zitat von negaH:

Delphi-Quellcode:

procedure TForm1.MouseMove();
var
  C: TControl;
begin
  C := Controls.FindDragTarget(ClientToScreen(Point(X, Y)), True);
  if C is TLabel then
  begin
  end;
end;

Gruß Hagen

das funzt irgendwie nicht... hab bei unit qcontrols eingetragen aber das finddragtarget mkennt der irgendwie nicht... fehlt da noch was?

die varianten von oben sind nicht gut da ich dann wieder auf jedes label ne prozedur machen muss ^^ ich will quasi über eine prozedure das verhalten von 30 labels koordinieren ^^