Új hozzászólás Aktív témák
-
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
Új hozzászólás Aktív témák
- Ritkaság eladó!!! i5-5675c Iris pro grafikus maggal.
- Szép! Lenovo Thinkpad T14 G3 "Golyóálló" Üzleti Laptop 14" -50% i5-1250P 12Mag 16GB/512GB FHD+ IPS
- Lenovo ThinkPad T14 Gen 1 - Ryzen 5 Pro 4650U, 16GB RAM, 512GB NVMe SSD - Szépséghibával, áron alul!
- Eladó Lg Ultragear Oled 27GR95QE-B, garis 27.02ig
- be quiet! Pure Rock 2 Black 150W TDP Foxpost az árban
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Honor 90 512GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
- SzinteÚJ! HP Elitebook 860 G10 i7-1355U 32GB 1000GB 16" FHD+ Gar.: 1 év
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3390, 93% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest