Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Часы 


Rammst   (2002-03-26 06:54) [0]

Привет всем! Вы не подскажите как сделать так чтобы Label выводила время(часы, минуты, секунды). То есть работала как часы.



MBo   (2002-03-26 07:18) [1]

по таймеру
label1.caption:=TimeToStr(Now);



snoup   (2002-03-26 07:51) [2]

А если хочишь и дату то так
label1.caption := datetimetostr(now);



Rammst   (2002-03-26 07:56) [3]

VERY, VERY благодарю!!!!!!!



mukha   (2002-03-26 10:03) [4]

Если хочешь чтобы ещё мигало и двоеточие между часами и минутами сделай так:

На форме помести Label1 и Timer1
Объяви переменную сразу за объявлением файлов ресурсов

implementation
{$R *.DFM}
var Colon:boolean; // переменная определяет наличие или отсутств. двоеточия
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=500; //Интервал мигания двоеточия
if Colon then // если есть двоеточие
//вывод времени без него
Label1.Caption:=FormatDateTime("hh nn", Time)
else // иначе
// вывод времени с двоеточием
Label1.Caption:=FormatDateTime("hh:nn", Time);
Colon:=NOT Colon;// изменение признака наличия двоеточия
end;



XanderMan   (2002-03-26 22:32) [5]

Если вообще не хочешь мучиться, то используй следующий компонент:

unit TimeLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TTimeLabel = class(TLabel)
private
{ Private declarations }
FTimer: TTimer;
procedure LoopTime(Sender: TObject);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TTimeLabel]);
end;

constructor TTimeLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTimer := TTimer.Create(AOwner);
FTimer.Interval := 1000;
FTimer.Enabled := True;
FTimer.OnTimer := LoopTime;
end;

procedure TTimeLabel.LoopTime(Sender: TObject);
begin
Caption := TimeToStr(Now);
end;

destructor TTimeLabel.Destroy;
begin
FTimer.Destroy;
inherited Destroy;
end;


end.


Просто помещаешь его на форму (перед этим проинсталировав), и все



Alev   (2002-03-26 22:38) [6]

Label1.caption:=TimeToStr(Time)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
4-22879           Sergy                 2002-02-06 10:27  2002.04.08  
Определение загрузки процессора перед запуском проги


1-22679           Fran                  2002-03-26 10:52  2002.04.08  
Нужен компонент типа TrxCalcEdit, но вместо цифр - англ.букв


3-22558           a_a_k                 2002-03-15 15:59  2002.04.08  
CalcFields


3-22516           _Kirill_              2002-03-11 13:05  2002.04.08  
Делаю выборку через Select.


1-22628           snoup                 2002-03-27 20:33  2002.04.08  
Как сделать простую инсталяху которая копирует на винт пару файло