Merhaba arkadaşlar,
Bu dersimizde progressbar ve timer nesnelerini kullanarak basit bir uygulama yapacağız.
Uygulamamızda progressbar %100 olduğunda süreniz doldu şeklinde bir mesaj verdireceğiz. Bu uygulama başlangıç seviyesindedir eğer isterseniz bu uygulamadan yola çıkarak ihtiyaçlarınız doğrultusunda çok daha ileri seviyede uygulamalar hazırlayabilirsiniz
Formumuza bir adet progressbar ile bir adet timer nesnesi ekliyoruz. Önce Object Inspector penceremizden timer nesnemizin interval özelliğini 100, enabled özelliğini true yapıyoruz. Daha sonra progressbar nesnesinin min özelliğini 0 ve max özelliğini 100 yapıyoruz.
Bu dersimizde progressbar ve timer nesnelerini kullanarak basit bir uygulama yapacağız.
Uygulamamızda progressbar %100 olduğunda süreniz doldu şeklinde bir mesaj verdireceğiz. Bu uygulama başlangıç seviyesindedir eğer isterseniz bu uygulamadan yola çıkarak ihtiyaçlarınız doğrultusunda çok daha ileri seviyede uygulamalar hazırlayabilirsiniz
Formumuza bir adet progressbar ile bir adet timer nesnesi ekliyoruz. Önce Object Inspector penceremizden timer nesnemizin interval özelliğini 100, enabled özelliğini true yapıyoruz. Daha sonra progressbar nesnesinin min özelliğini 0 ve max özelliğini 100 yapıyoruz.
Kod:
Kod:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=progressbar1.Position+1;
if progressbar1.Position=100 then
begin
timer1.Enabled:=false;
showmessage ('Süre doldu');
end;
end;