Ich habe zwei bilder so programmiert:
das eine ( Mond "kreisen" lassen):
Delphi-Quellcode:
procedure TForm1.Button9Click(Sender: TObject);
begin
if Button9.caption='Mond Start' then begin Timer1.enabled:=true; Button9.Caption:='Mond stop' end
else if Button9.caption='Mond stop' then begin Timer1.enabled:=false;Timer2.enabled:=false;Timer3.enabled:=false;Timer4.enabled:=false;Button9.caption:='Mond Start' end
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image12.left:=image12.Left+10; Timer1.Interval:=10;
if image12.left<=895 then begin Timer1.enabled:=true; Timer2.enabled:=false end
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
image12.top:=image12.Top+10; Timer2.Interval:=10;
if image12.Top=640 then begin Timer2.enabled:=false;Timer3.enabled:=true end
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
image12.left:=image12.left-10; Timer3.Interval:=10;
if image12.Left<=8 then begin Timer3.enabled:=false; Timer4.Enabled:=true end
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
image12.Top:=image12.Top-10; Timer4.Interval:=10;
if image12.Top=8 then begin Timer4.Enabled:=false; Timer1.Enabled:=true end
end;
das andere ( Sonne "kreisen" lassen):
Delphi-Quellcode:
procedure TForm1.Button10Click(Sender: TObject);
begin
if button10.caption='Sonne Start' then begin Timer5.enabled:=true; button10.Caption:='Sonne stop' end
else if button10.caption='Sonne stop' then begin Timer5.enabled:=false;Timer6.enabled:=false;Timer7.enabled:=false;Timer8.enabled:=false;button10.caption:='Sonne Start' end ;
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
image1.left:=image1.Left-10; Timer5.Interval:=40;
if image1.left<=8 then begin Timer6.enabled:=true; Timer5.enabled:=false end
end;
procedure TForm1.Timer6Timer(Sender: TObject);
begin
image1.top:=image1.Top+10; Timer6.Interval:=40;
if image1.Top = 640 then begin Timer7.enabled:=true; Timer6.enabled:=false end
end;
procedure TForm1.Timer7Timer(Sender: TObject);
begin
image1.left:=image1.left+10; Timer7.Interval:=40;
if image1.Left >= 895 then begin Timer7.enabled:=false; Timer8.Enabled:=true end
end;
procedure TForm1.Timer8Timer(Sender: TObject);
begin
image1.Top:=image1.Top-10; Timer8.Interval:=40;
if image1.Top = 10 then begin Timer8.Enabled:=false; Timer5.Enabled:=true end
end;
Das mit der Sonne funktioniert, das mit dem Mond aber nicht.
Ich habe keine Ahnung, warum das mit dem Mond (sind ja beide identisch von der programmierung) nicht so funktioniert.
Könnt ihr mir dabei helfen?
ICh sag schonmal DANKE.