cool danke das hilft mir mit den arrays schon weiter
ich hab jetzt auch schon selber hinbekommen, dass die x-koordinate weiter läuft und ich nur die maus auf und ab bewegen brauch, allerdings scrollt es noch nicht weiter..
Delphi-Quellcode:
var pt1, pt2:tpoint
procedure TForm1.FormMouseMove(Sender:TObject;Shift:TShiftState; X, Y:integer);
begin
getcursorpos(pt2);
canvas.lineto(pt1.x,pt2.y);
end;
procedure TForm1.Timer1Timer(Sender:TObject);
begin
pt1.x:=pt1.x+1;
end;