Скачать: CL | DM;

Дата и Время в заголовке   Найти похожие ветки 

← →
TRSteep ©   (2008-08-12 11:35) [0]

Пытаюсь вывести дату и время в заголовке - пока единственная мысль это таймер.
Делаю так:


 Frm_Main.Caption := DateTimeToStr( Now );
 case DayOfTheWeek( Now ) of
   1:
   begin
     Frm_Main.Caption := " Понедельник " + Frm_Main.Caption;
   end;
   2:
   begin
     Frm_Main.Caption := " Вторник " + Frm_Main.Caption;
   end;
   3:
   begin
     Frm_Main.Caption := " Среда " + Frm_Main.Caption;
   end;
   4:
   begin
     Frm_Main.Caption := " Четверг " + Frm_Main.Caption;
   end;
   5:
   begin
     Frm_Main.Caption := " Пятница " + Frm_Main.Caption;
   end;
   6:
   begin
     Frm_Main.Caption := " Суббота " + Frm_Main.Caption;
   end;
   7:
   begin
     Frm_Main.Caption := " Воскресенье " + Frm_Main.Caption;
   end;
 end;

На таймере интервал 500 мс - частенько подмигивает надпись...

Можно ли сделать лучше?
Как сделать чтобы не мигало?

---

← →
Palladin ©   (2008-08-12 11:38) [1]

таймер для этой задачи - самое то. вот только на кой тебе интервал в полсекунды. одной более чем достаточно. а 5 - самое то

---

← →
Medbe}I{onok XML ©   (2008-08-12 11:41) [2]

Frm_Main.Caption := " Понедельник " + Frm_Main.Caption;

Это чтобы после энного тика получилось :
"Понедельник Понедельник Понедельник Понедельник Понедельник Понедельник  ....... что-то там еще" ?

---

← →
TRSteep ©   (2008-08-12 11:44) [3]

>Medbe}I{onok XML ©
там вначале caption задаеться строго:
Frm_Main.Caption := DateTimeToStr( Now );

---

← →
TRSteep ©   (2008-08-12 11:45) [4]

> таймер для этой задачи - самое то. вот только на кой тебе
> интервал в полсекунды. одной более чем достаточно. а 5 -
>  самое то

ну хотелось бы чтобы каждую секунду отображалось...

если проблема только в этом - я думаю так и сделаю

---

← →
Palladin ©   (2008-08-12 11:47) [5]

делай. решение нормальное и правильное. секунда так секунда. довольно приемлимо.

---

← →
TRSteep ©   (2008-08-12 11:55) [6]

Всем спасибо за советы!

---

← →
{RASkov} ©   (2008-08-12 12:00) [7]

> На таймере интервал 500 мс - частенько подмигивает надпись...

Хм... можно сделать вначале проверку на смену даты, если не сменилась, то и не "рисовать" ее(дату в кэпшене) т.е. выход из процедуры....
Если секунды таки необходимо отображать, то нет смысла в этой затеи... интервал таймера только нужно увеличить...

---

← →
oldman ©   (2008-08-12 12:03) [8]

> TRSteep ©   (12.08.08 11:35)  
> Пытаюсь вывести дату и время в заголовке


А не лучше ли в "строке состояния"?

---

← →
TRSteep ©   (2008-08-12 12:03) [9]

хотя есть еще одна мысль - может выводить не в заголовке
наверно он все таки предназначен для другого :)

Если выводить например в label
или вобще самому прорисовывать на PaintBox?

---

← →
oldman ©   (2008-08-12 12:06) [10]

> TRSteep ©   (12.08.08 12:03) [9]


Я убежден, что часы и календарь с информационной точки зрения в программах не нужны.
Часы же есть.

---

← →
TRSteep ©   (2008-08-12 12:24) [11]

oldman я пишу для тренировки (и для себя) будильник
хотелось бы получить все то что я хочу получить от программы
и заодно учиться писать программы

И хотелось бы видеть время - прямо тут где и задаешь звонок :)

---

← →
oldman ©   (2008-08-12 12:29) [12]

> TRSteep ©   (12.08.08 12:24) [11]


Так и показывай (меняй) только время.
При достижении 00:00 меняй дату и день недели

---

← →
Ega23 ©   (2008-08-12 12:30) [13]

> Я убежден, что часы и календарь с информационной точки зрения
> в программах не нужны.
> Часы же есть.


Секунды не показывает. Надо специально кликать.
Если секунды не нужны - тогда да. Но часто бывает, что нужны.

---

← →
oldman ©   (2008-08-12 12:32) [14]

> Ega23 ©   (12.08.08 12:30) [13]
> Секунды не показывает.


У меня показывает.
И на руке, и на стене, и в сотовом.

---

← →
MsGuns ©   (2008-08-12 14:54) [15]

Код в сабже - издевательство над паскалем и вообще програмированием

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.01 c