Danke @stahli,
habe gerade festgestellt, dass das Label eine eigene OnMouseMove Funktion besitzen kann. Ich dachte die FormMouseMove wäre für alles daraufliegende zuständig.
Deine Methode ist bestimmt sehr gut, nur für den anfang reicht mir erstmal diese Funktion hier:
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ((X <= 45) or (X >= 55) or (Y <= 45) or (Y >= 55)) then
begin
Panel1.Left:=X-50;
Panel1.Top:=Y-50;
end;
end;
Also Danke nochmals, Frage geklärt
MfG spawn