Befehl zum pausieren

[Klaus01]

Delphi-Quellcode:

repeat
  If not dieMaus.istGedrueckt {= false} then
    begin
      hposition2:=0;
      meinStift.bewegeBis(dieMaus.hPosition,dieMaus.vPosition);
    end{;}
  else
  {If dieMaus.istGedrueckt then}
    begin
      meinStift.bewegeBis(meinStift.hPosition,meinStift.vPosition);
      hposition2:=(hposition2+1);
      meinStift.zeichneKreis(1+hposition2);
    end;
          
  sleep(150); // oder besser delay aus der Codelib nehmen
until dieMaus.doppelklick;

Grüße
Klaus