ja habe ich so habe es jetzt umgeschrieben da ich ohne die labels arbeiten kann
Delphi-Quellcode:
procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
mousepos:Tpoint;
x,y :integer;
begin
getcursorpos(mousepos);
x :=mousepos.x;
y :=mousepos.y;
end;
damit bekomme ich die Cursor position. wie kann ich den cursor jetzt auf eine andere Form übertragen?