AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Uhrzeit in Statusbar

Ein Thema von Darkchild · begonnen am 10. Nov 2006 · letzter Beitrag vom 10. Nov 2006
 
smudo

Registriert seit: 6. Sep 2005
Ort: Cottbus
362 Beiträge
 
Delphi XE2 Professional
 
#6

Re: Uhrzeit in Statusbar

  Alt 10. Nov 2006, 11:03
Hier noch eine Kanone für Spatzen:

Delphi-Quellcode:
  TTimerLabel = class(TThread)
  private
    FTimeLabel: TLabel; //hier die gewünschte Komponente verwenden
    FStop: Boolean;
    FDelay: Cardinal;
  protected
    procedure Execute; override;
    procedure ShowTime;
  public
    constructor Create(const aLabel: TLabel; const aDelay: Cardinal; ThreadPriority: TThreadPriority);
    procedure Stop;
    property Delay: Cardinal read FDelay write FDelay;
  end;

constructor TTimerLabel.Create(const aLabel: TLabel; const aDelay: Cardinal;
  ThreadPriority: TThreadPriority);
begin
  inherited Create(True);
  Priority := ThreadPriority;
  FStop := False;
  FDelay := aDelay;
  FTimeLabel := aLabel;
  FreeOnTerminate := True;
  Resume;
end;

procedure TTimerLabel.Execute;
begin
  inherited;
  ShowTime;
end;

procedure TTimerLabel.ShowTime;
begin
  while not FStop do
  begin
    FTimeLabel.Caption := TimeToStr(Now);
    Sleep(Delay);
  end;
end;

procedure TTimerLabel.Stop;
begin
  if not FStop then FStop := True;
end;
Und im verwendeten Proc so aufrufen:
Delphi-Quellcode:
TL: TTimerLabel;

procedure TfrmTest.FormShow(Sender: TObject);
begin
  TL := TTimerLabel.Create(lbTime, 10, tpNormal); //10 ist OK, mind. 1 verwenden und max 1000 ;)
end;

procedure TfrmTest.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TL.Stop;
end;
Gruß

René
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz