![]() |
| |||||||
| Programlama Delphi,Visual Basic,C/C++,Pascal,Python,Kylix,Lazarus,Glade,Perl,Mono vb yazılımlar hakkında döküman paylaşabileceğiniz ve soru sorabileceğiniz forum alanızımıdır. |
| Tags: counter, formunuza, istermisiniz, koymak |
![]() |
| | LinkBack | Konu Araçları |
| | #1 (permalink) | |||||||||||||
| Bu Alana Reklam Vermek İstiyorsanız Buraya Tıklayınız {formunuza bir timer ve label ekleyin} var TheTime: Integer; implementation function GetCounter(Second: Integer): string; var Minute, NewSecond, Hour: Currency; begin Hour := Int(Second / 3600); Minute := Int((Second - (Hour * 3600)) / 60); NewSecond := Second - int(Hour * 3600 + Minute * 60); GetCounter := CurrToStr(Hour) + ':' + CurrToStr(Minute) + ':' + CurrToStr(NewSecond); end; procedure TForm1.FormCreate(Sender: TObject); begin TheTime := GetTickCount; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := GetCounter(GetTickCount div 1000 - TheTime div 1000); end;
__________________ !!!FORUMDAKİ ONLİNE FİLMLERİ (DivX) NASIL İZLERİM!!![Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] ![]() [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] | |||||||||||||
| | |
| Konuyu Beğendin mi ? O Halde Konuyu Arkadaşınız ile Paylaşın =) |
| Okumuş Olduğunuz Sayfayı E-Mail ile Arkadaşınız ile Paylaşın ! |
| | #2 (permalink) | |||||||||||||||||||||
| eline saglik | |||||||||||||||||||||
| | |
![]() |
| Bookmarks |
| Şu an bu konuyu görüntüleyen kullanıcı sayısı: 1 (0 üye ve 1 misafir) | |
| Konu Araçları | |
| |