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 ^^