Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизЧасы Найти похожие ветки
← →
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.
Просто помещаешь его на форму (перед этим проинсталировав), и все
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c