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

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

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