Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.013 c