Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Pfeiltasten benutzen zum Bewegen eines Shapes (https://www.delphipraxis.net/191275-pfeiltasten-benutzen-zum-bewegen-eines-shapes.html)

stahli 28. Dez 2016 14:36

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Dann ":= 0" siehe a.def...

a.def 28. Dez 2016 14:58

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Zitat:

Zitat von Maurooon (Beitrag 1357349)
Da ich aber ja key: word habe, motzt er rum wenn ich key := #0 setzen möchte

Siehe mein Beitrag.

Maurooon 28. Dez 2016 15:02

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Zitat:

Zitat von stahli (Beitrag 1357350)
Dann ":= 0" siehe a.def...

Dann funktioniert gar nichts mehr.
Ich erkläre mal genau was ich vor hab: Ich habe mehrere Buttons und mit einem der Buttons startet ein "Spiel" mit dem das Ziel ist ein Shape über die Pfeiltasten an eine bestimmte Position zu bringen. Habe ich das Spiel gestartet und ich bewege das Shape, was funktioniert (Wenn ich nicht key := 0 setze). Ich bewege aber während ich das Shape bewege auch noch die Auswahl zwischen den Buttons hin und her und da unter den Buttons wie gesagt auch eine Trackbar ist, nervt das ziemlich...

Zwischenfrage: Ich hab in einem Timer mit dem Intervall 1 an einem bestimmten Punkt ein showmessage('xy') eingebaut. Da das Intervall 1 ist erscheint die Nachricht dann unzählige Male. Kann ich das irgendwie beheben? Mit Timer.enabled := false funktioniert es nicht.

LG

Edit: Erster Teil hat sich erledigt, hatte das key := 0 an der falschen Stelle, oups

a.def 28. Dez 2016 15:05

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Zitat:

Dann funktioniert gar nichts mehr.
Was genau funktioniert nicht? Das Shape bewegt sich doch.

Delphi-Quellcode:
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;

Maurooon 28. Dez 2016 15:25

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Zitat:

Zitat von a.def (Beitrag 1357354)
Zitat:

Dann funktioniert gar nichts mehr.
Was genau funktioniert nicht? Das Shape bewegt sich doch.

Delphi-Quellcode:
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;

Super, danke, jetzt funktioniert alles! Vielen Dank, echt! Ihr seid der Hammer!

a.def 28. Dez 2016 15:35

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Du könntest es auch noch so abändern, dass das Schließen des Dialogs im Timer selbigen wieder aktiviert.

Maurooon 29. Dez 2016 17:12

AW: Pfeiltasten benutzen zum Bewegen eines Shapes
 
Ja, stimmt, aber für´s erste reicht mir das. Weißt du zufällig auch, oder sonst jemand, wie man bei Ausführen der exe Datei direkt ein showmessage Befehl ausführen kann - also wo der im Quellcode stehen muss?

LG


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz