Pfeiltasten benutzen zum Bewegen eines Shapes

[a.def]

Zitat:

Dann funktioniert gar nichts mehr.

Was genau funktioniert nicht? Das Shape bewegt sich doch.

Timer1.Enabled := False; muss VOR dem ShowMessage('xy'); sein.

Delphi-Quellcode:

// timer1
begin
 if wasauchimmer then
  begin
   // zeige showmessage
   Timer1.Enabled := False; // <==
   showmessage('xy');
  end else
   begin
    // mache etwas anderes
   end;
end;