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

Вниз

datetimepicker   Найти похожие ветки 

← →
sidor   (2003-02-25 17:23) [0]

Как создать часы шоб ани работали!!!

напиши исходник!!!

---

← →
Smashich   (2003-02-25 17:37) [1]

Часы:=TЧасы.Create(Стена);
Часы.Тикать

---

← →
sidor   (2003-02-25 17:40) [2]

Smashich дибил

---

← →
Vovchik_A   (2003-02-25 18:01) [3]

Поставь себе RxLib там готовые есть и не парь голову людям

---

← →
FLIZ   (2003-02-25 18:09) [4]

1. модератора в студию - это раз! :)

2.

2 sidor © (25.02.03 17:40). Судя по тому что ты даже
граммотно не можешь написать несколько слов по русски,
ты сам не умнее.

---

← →
Tim_gothic   (2003-02-25 20:11) [5]

Smashich - молодец... Я долго орал!

datetimepicker
implementaion
var
Colon : Boolean;
{}
procedure TForm.Timer1Timer(Sender: TObject);
begin
Panel1.Caption := FormatDateTime("c",Date);
if Colon then
Panel2.Caption := FormatDateTime("hh nn",Time)
else
Panel2.Caption := FormatDateTime("hh nn",Time);
Colon := NOT Colon;
end;

Если мозги есть - разберешься, если нет - то как ты обозвал Smashich

---

← →
h@1f-e1f   (2003-02-25 20:25) [6]

Можно проще!
Делаешь таймер с интервалом <=1000 и
procedure Timer1OnTimer;
Label1.Caption:=TimeToStr(Time(Now));


---

Страницы: 1 вся ветка

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

Наверх

Память: 0.55 MB
Время: 0.042 c