Új hozzászólás Aktív témák

• #453 yksz aktív tag

  Új Válasz 2005-01-03 18:39:19 #453

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  yksz

  aktív tag

  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Shape1.Top:=Shape1.Top+1;
  if shape1.Top=170 then shape1.Top:=50;
  if shape1.Top=50 then timer1.Enabled:=false;
  end;
  
  procedure TForm1.Shape1Click(Sender: TObject);
  begin
  Osszeg:=StrToInt(Edit1.Text);
  if Osszeg=0 then label1.Visible:=true;
  if Osszeg>0 then
  begin
  Osszeg:=Osszeg-2;
  Edit1.Text:=Inttostr(Osszeg);
  Timer1.Enabled:=true;
  Timer2.Enabled:=true;
  Timer3.Enabled:=true;
  Timer4.Enabled:=true;
  end;
  end;
  
  procedure TForm1.Timer2Timer(Sender: TObject);
  begin
  T:=T+1;
  if T>3 then T:=1;
  if T=1 then Image2.Visible:=true else image2.Visible:=false;
  if T=2 then Image3.Visible:=true else image3.Visible:=false;
  if T=3 then Image4.Visible:=true else image4.Visible:=false;
  end;
  
  procedure TForm1.Timer3Timer(Sender: TObject);
  begin
  A:=T+1;
  if A>3 then A:=1;
  if A=1 then Image5.Visible:=true else image5.Visible:=false;
  if A=2 then Image6.Visible:=true else image6.Visible:=false;
  if A=3 then Image7.Visible:=true else image7.Visible:=false;
  end;
  
  procedure TForm1.Timer4Timer(Sender: TObject);
  begin
  B:=T+1;
  if B>3 then B:=1;
  if B=1 then Image8.Visible:=true else image8.Visible:=false;
  if B=2 then Image9.Visible:=true else image9.Visible:=false;
  if B=3 then Image10.Visible:=true else image10.Visible:=false;
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  T:=2;
  A:=1;
  B:=3;
  end;
  
  procedure TForm1.Timer5Timer(Sender: TObject);
  begin
  timer2.Enabled:=false;
  if Timer2.Enabled=false then timer3.Enabled:=false;
  if timer3.Enabled=false then timer4.Enabled:=false;
  
  end;
  
  A Timer5 nem állítja le a képek váltakozását. Mit írtam rosszul? Hibát nem ír, csak nem áll le. Ja, ha fontos az intervalja: 6000

  Fly away my precious knowledge fly far away

Új hozzászólás Aktív témák