Repaet ve timer

[rahim_azeri]

Yeniden Merhaba arkadaslar....Mesela 3 comandam var ben istiyorum ki form acilanda 1-ci komanda calishsin 10 saniye sonra 2-ci komanda chalishsin ve 2-ci komandadan 10 saniye sonra 3-cu komanda calishsin 3-cu komandadan sonra yeniden 1-ci komanda calishsin sonra 2-ci sonra 3-cu ve boyle devam etsin...ONCEDEN TESEKKURLER

[conari]

code1

Kod: Tümünü seç

sleep(10000);

code2

Kod: Tümünü seç

sleep(10000);

code3

[SimaWB]

TTimer bileşeni kullan ve Interval özelliğini 10000, Enabled özelliğini de False yap;

Kod: Tümünü seç

var Sayac: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Sayac := 0;
  ExecFunction; 
end;
procedure TForm1.ExecFunction;
begin
  Timer1.Enabled := False;
  case Sayac of
    0: Fonksiyon1;
    1: Fonksiyon2;
    2: Fonksiyon3;   
  end;
  Inc(Sayac);
  if Sayac > 2 then Sayac := 0;
  Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin 
  ExecFunction;
end;

Denemedim ama bu şekilde istediğin olması lazım...

[rahim_azeri]

Allah razi olsun kardesler...!