Formumuza İki Adet Timer Ekliyoruz 1 Adet LAbel 2 Adet Button birde progressbar Ekliyoruz
Timer 1 in içine
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
begin
sleep(10);
progressbar1.Position:=i;
form1.Caption:='Bilgisayar Programcısı';
label2.Caption:=' Bilgisayar Programcısı ';
end;
end;
Timer 2 içine
procedure TForm1.Timer2Timer(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
begin
sleep(10);
form1.Caption:='Kadirhan GÜRTÜRK';
label2.Caption:='Kadirhan GÜRTÜRK';
end;
end;
Button 1 in caption özelliğine Durdur yazıyoruz
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
end;
Button2 nin içine is Başlat yazıyoruz
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=true;
end;
end.
Coder By Kadirhan GÜRTÜRK email: webmaster23@mynet.com
kadirhan gürtürk
webmaster23@mynet.com