also so hab ich das gemacht was ich als erstes gemacht hab, wo man halt nur in das Formular gemalt hat den graphen..
Delphi-Quellcode:
var Form1:TForm1; xalt, yalt:integer;
procedure TForm1.FormMouseMove(Sender:TObject;Shift:TShiftState; X, Y:integer);
var
pt1:tpoint;
begin
getcursorpos(pt1);
label1.caption:='X:'+inttostr(pt1.x)+' Y:'+inttostr(pt1.y);// anzeigen der koordinaten
If (X-xalt>=0) //damit man nur nach rechts zeichnen kann
then begin
canvas.lineto(x, y);
xalt:=X;
yalt:=Y;
end;
end;
end.