Thema: Delphi tastatur umgang

Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#1

Re: zu früh gefreut

  Alt 30. Nov 2004, 19:11
Zitat von onkel2:
also ich programmiere mit msum und der Fehler ist nun weg, aber der Pfeil bewegt sich nicht , das muss an dem weiter liegen.
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
Oh Gott, das sieht übelst nach "Stifte und Mäuse 2.2" aus.
Die selbe Aufgabe, die ihr habt, machen wir gerade auch Informatik - Also viel Spaß noch

mfG
mirage228
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat