tastatur umgang

[onkel2]

also ich programmiere mit msum und der Fehler ist nun weg, aber der Pfeil bewegt sich nicht , das muss an dem weiter liegen.

Delphi-Quellcode:

If meineTastatur.wurdeGedrueckt  then
     If meineTastatur.zeichen ='h'  then
       begin
     meinStift.runter;
     meinStift.bewegeUm(-80);
     meinStift.hoch;
     meinStift.bewegeUm(80);

     meinStift.bewegeBis(meinStift.hPosition, meinStift.vPosition - 0.002);
     meinStift.bewegeUm(0.001);

    // Pfeil zeichnen
    meinStift.runter;
    meinStift.bewegeUm(-80);
    meinStift.hoch;
    meinStift.bewegeUm(80);
    meineTastatur.weiter
     end  ;
    If meineTastatur.wurdeGedrueckt then
     If meineTastatur.zeichen ='r'  then
       begin
     meinStift.runter;
     meinStift.bewegeUm(-80);
     meinStift.hoch;
     meinStift.bewegeUm(80);

     meinStift.bewegeBis(meinStift.hPosition, meinStift.vPosition + 0.002);
     meinStift.bewegeUm(0.001);

    // Pfeil zeichnen
    meinStift.runter;
    meinStift.bewegeUm(-80);
    meinStift.hoch;
    meinStift.bewegeUm(80);
    meineTastatur.weiter;

    end

[edit=Luckie]Delphi-Tags Mfg, Luckie[/edit]