Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#2

AW: Rechteck Verschieben

  Alt 1. Apr 2011, 07:17
Du brauchst mMn einen Button oder so, womit die Bewegung startet.
Dann eine Timer-Komponete, die alle paar Millisekunden auslöst
(und von dem Button enabled wird, damit das ganze los geht).

In der Tick-Event-Prozedur des Timers setzt du die Position des Rechteckes, dann jeweils neu mit veränderten Werten für X und Y, so dass das Rechteck "wandert".

Wenn das ganze in einem "Programm" gelöst werden soll, kann man statt des Timers natürlich auch eine For-Next-Schleife nehmen und dann bei jedem Schleifendurchlauf das Rechteck neu (an verschobener Position) zeichnen und dann eine kleine Pause machen, sowas wie Sleep, oder so.
Ralph

Geändert von Jumpy ( 1. Apr 2011 um 07:20 Uhr)
  Mit Zitat antworten Zitat