Delphi-PRAXiS
Seite 8 von 10   « Erste     678 910      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Image bewegen (https://www.delphipraxis.net/144048-image-bewegen.html)

Jonski 29. Nov 2009 16:15

Re: Image bewegen
 
Ihr seid so gut zu mir es klappt!

So und jetzt wie kriege ich es hin das es erst bei Button1.click losgeht?

hugo1990 29. Nov 2009 16:17

Re: Image bewegen
 
Du testest aber mit "=" und DeddyH hat gesagt du sollst mal Haltepunkte setzten und den Inhalt der Variablen anschauen. Wenn du das getan hättest, wüsstest du wo dein Fehler liegt.
Dein Image1 startet bei 432, 272 und diese Werte werden immer mit 10 inkementiert bzw. dekrementiert.
Deine anderen Images haben aber bei den Positionen als letzte Ziffer nie eine 2, deshalb habe ich ja gesagt, du sollst ">=" oder "<=" verwenden.

DeddyH 29. Nov 2009 16:18

Re: Image bewegen
 
Timer.Enabled initial auf false und im ButtonClick auf true stellen.

Namenloser 29. Nov 2009 16:18

Re: Image bewegen
 
Zitat:

Zitat von Jonski
Ihr seid so gut zu mir es klappt!

So und jetzt wie kriege ich es hin das es erst bei Button1.click losgeht?

Delphi-Referenz durchsuchenTTimer.Enabled

Jonski 29. Nov 2009 16:27

Re: Image bewegen
 
Ich bin gerade dabei Pong zu Programmieren :-D

Wolfgang Mix 29. Nov 2009 16:36

Re: Image bewegen
 
Setze den Timer im Objektinstektor auf disabled und im Button1-Event
auf Enabled. Müßte doch funktionieren!

Medium 29. Nov 2009 16:44

Re: Image bewegen
 
Zitat:

Zitat von Jonski
Ich bin gerade dabei Pong zu Programmieren :-D

Nein, die Antworter hier programmieren Pong. Du schreibst es nur hin.

Jonski 29. Nov 2009 16:48

Re: Image bewegen
 
Toll danke das motiviert mich!

Ich weiß, aber ich habe das gestern erst gelernt und ich find meine Fehler nicht.

So wie hier:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin

case Key of
  VK_Left:
  if Image6.Left > Image2.Left +43 then
    begin
    Image6.Left:= Image6.Left -10;
    end;
  VK_Right:
  if Image6.Left < Image3.Left -100 then
    begin
    Image6.Left:= Image6.Left +10;
    end;
end;
end;
Gebt mir nur einen Tipp

Jonski 29. Nov 2009 17:24

Re: Image bewegen
 
Ich komme nicht weiter :wall:

Luckie 29. Nov 2009 17:29

Re: Image bewegen
 
Würdest du es bitte unterlassen deine beitrage zu pushen bevor 24 Stunden um sind:

Des Weiteren:
Zitat:

find meine Fehler nicht
Das hilft uns relativ wenig. Was passiert bzw. passiert nicht und was soll passieren? Fehlermeldungen der des Compilers? Fehlermeldungen zur Laufzeit? Was hast du beim Debuggen rausgefunden?

Du kannst nicht von uns erwarten, dass wir wissen was passiert und wenn du uns essentielle Informationen vorenthältst, können wir kaum helfen außer raten.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:03 Uhr.
Seite 8 von 10   « Erste     678 910      

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