Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Rechteck Verschieben (https://www.delphipraxis.net/159531-rechteck-verschieben.html)

Barny69 31. Mär 2011 23:23

Delphi-Version: 5

Rechteck Verschieben
 
hallo community!

ich habe bei 2 aufgaben die wir aufbekommen haben probleme.
bin in sachen delphi noch recht unerfahren und würde euch um eure hilfe bitten.

1.wir sollen zwei attribute und dazu je einen wert eines grafikobjekts notieren.
meine antwort: rechteck.setpos(10,10,100,100);
rechteck.setfarbe (clred);
2. wir sollen einen programmteil schreiben, bei dem sich das rechteck von links oben
nach rechts unten bewegt...
meine antwort:
verschieben
rechteck.setpos(10,10,100,100);
rechteck.setfuellfarbe (clblue);
rechteck.zeigen;
zeit.setpause

ok 2. is total falsch weiß ich xD
hilfeeee xD
mfg!

Jumpy 1. Apr 2011 07:17

AW: Rechteck Verschieben
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:09 Uhr.

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