|
Тема
|
delene hh:mm:ss - помощ!!!
|
|
Автор | nova (Нерегистриран) |
Публикувано | 10.02.07 23:03 |
|
Моля за спешна помощ по следната задача:
Трябва да се направи така, че часовника, който е направен така:
...
type
TForm1 = class(TForm)
Timer1: TTimer;
Panel1: TPanel;
Label2: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption := TimeToStr(Time);
end;
end.
да бъде разделен на часове, минути и секунди, за да може на всеки от тях да бъде зададен различен цвят.
Много ви моля за възможно най-спешна помощ!!!!
| |
Тема
|
Re: delene hh:mm:ss - помощ!!!
[re: nova]
|
|
Автор | Simon (Нерегистриран) |
Публикувано | 11.02.07 03:19 |
|
procedure TForm1.Timer1Timer(Sender: TObject);
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(SysUtils.Now, Hour, Min, Sec, MSec);
label1.Caption := IntToStr(Hour);
label2.Caption := IntToStr(Min);
label3.Caption := IntToStr(Sec);
end;
| |
|
|
|
|