Einzelnen Beitrag anzeigen

iron

Registriert seit: 10. Jul 2006
Ort: Berlin
113 Beiträge
 
Delphi 2005 Personal
 
#1

Stoppuhr in StatusBar

  Alt 19. Nov 2006, 18:34
Hallo Ihr Profis,

Hab da mal ein kleines Problem für Euch, für mich ein großes.
Ich möchte gerne ne Stoppuhr in ne StatusBar einbauen.

Hab es bisher so gemacht:

Delphi-Quellcode:
if FTP.Connected then
 begin
   Label4.Caption := inttostr(strtoint(Label4.Caption) + 1);
 end;

 if(strtoint(Label4.Caption) = 60) then
  begin
   Label3.Caption := inttostr(strtoint(Label3.Caption) + 1);
   Label4.Caption := inttostr(0);
  end;

 if(strtoint(Label3.Caption) = 60) then
  begin
   Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);
   Label3.Caption := inttostr(0);
  end;
Das geht auch soweit sogut
nur sieht es mir nicht gut genug aus, und ich möchte dieses gerne in ne Statusbar haben, wo es dann z.B.
Serververbindungszeit: 00:00:00 angezeigt wird.

hab auch schon was von der GetTickCount Variante gehört und gelesen, aber irgendwie komm ich nicht weiter.
Wär schön wenn mir einer weiterhelfen könnte mit ner Lösung oder was Ihr so auf Lager habt
wer früher stirbt, ist länger Tot

Berliner Community http://berliner-cafe.de
  Mit Zitat antworten Zitat