Entwickler-Ecke
Multimedia / Grafik - Bilder bewegen
0zkillz - So 26.02.06 11:23
Titel: Bilder bewegen
hallo erstma ich bin hier ein Forums-Neuling :)
ich hab da kleines problem ich hoffe ihr könnt mir da helfen es wär echt nett
ich hab folgendes programm geschrieben damit sich ein bild auf buttonklick bewegt..das problem is bloß es hört nicht auf sich zu bewegen ^^
ich wollt eigentlich das mit ner bedingung machen wie
if image1.top:=100 then timer1.enabled:=false
aber ds klappt nich weil ja eins der werte boolean is
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var x,a:integer;
begin
timer1.interval:=10;
a:=1 ;
for x:= 0 to 5 do
begin image1.top:= image1.top-1;
image1.left:= image1.left-1;
INC(a) ;
if a =5 then
Break; |
bin für alle tipps offen
der delphi-noob 0zkillz
Moderiert von 
AXMD: Delphi-Tags hinzugefügt
F34r0fTh3D4rk - So 26.02.06 11:30
benutze bitte die delphi tags, dann ist das ganze übersichtlicher, versuchs statt:
mal so:
Delphi-Quelltext
1:
| if image1.top = 100 then |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| var
a: integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := true;
timer1.interval := 10;
a := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
a: integer;
begin
if a < 100 do
begin
image1.top := image1.top - 1;
image1.left := image1.left - 1;
inc(a);
end; |
0zkillz - So 26.02.06 15:00
ok ich probier das gleich ma aus
was meinste mit delphi-tags?
ganz normal immer quellcodemößig alles aufschreiben?
thx
JayEff - So 26.02.06 15:05
Folgendes:
[*delphi] [/delphi] statt [*code] [/code] im Forum verwenden. Was du versucht hast, war eine Zuweisung in einer If Abfrage. Das geht aber nicht, denn die If Abfrage will einen Vergleich.
Vergleiche machst du mit einem "=", Zuweisungen mit einem ":="
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!