Ruh Hali : Mesaj Sayısı : 952 Rep Puanı : 13131 Teşekkür Aldı : 0 Kayıt tarihi : 29/10/09 Nerden : Kocaeli/Gebze İş/Hobiler : MEsaj atmak :D Lakap : Sezo
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.
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;
Ardından yukarıdaki kodları timer nesnemizin OnTimer bloğuna yazıyoruz. Uygulamamızı çalıştırınca progressbar dolduğunda süreniz doldu şeklinde mesaj veriyor.
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:27 pm