Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-17284
malkolinge
2003-02-19 14:26
2003.03.06
РАбота !


14-17359
olleg
2003-02-18 11:32
2003.03.06
Построение отчетов!


7-17414
Igor---
2003-01-08 13:09
2003.03.06
Клонирование дисков


3-16886
mate
2003-02-13 18:02
2003.03.06
Ошибка при запросе


1-17148
IVANOV
2003-02-22 08:15
2003.03.06
Вопрос о создании TStrings