| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дата и Время в заголовке [D2005, XP, 2003]
TRSteep © (2008-08-12 11:35:00)Пытаюсь вывести дату и время в заголовке - пока единственная мысль это таймер.
Делаю так:
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 мс - частенько подмигивает надпись...
Можно ли сделать лучше?
Как сделать чтобы не мигало?
MsGuns (2008-08-12 14:54:00) [1]Код в сабже - издевательство над паскалем и вообще програмированием
oldman (2008-08-12 12:32:00) [2]
> Ega23 © (12.08.08 12:30) [13]
> Секунды не показывает.
У меня показывает.
И на руке, и на стене, и в сотовом.
Ega23 (2008-08-12 12:30:00) [3]
> Я убежден, что часы и календарь с информационной точки зрения
> в программах не нужны.
> Часы же есть.
Секунды не показывает. Надо специально кликать.
Если секунды не нужны - тогда да. Но часто бывает, что нужны.
oldman (2008-08-12 12:29:00) [4]
> TRSteep © (12.08.08 12:24) [11]
Так и показывай (меняй) только время.
При достижении 00:00 меняй дату и день недели
TRSteep (2008-08-12 12:24:00) [5]oldman я пишу для тренировки (и для себя) будильник
хотелось бы получить все то что я хочу получить от программы
и заодно учиться писать программы
И хотелось бы видеть время - прямо тут где и задаешь звонок :)
oldman (2008-08-12 12:06:00) [6]
> TRSteep © (12.08.08 12:03) [9]
Я убежден, что часы и календарь с информационной точки зрения в программах не нужны.
Часы же есть.
oldman (2008-08-12 12:03:00) [7]
> TRSteep © (12.08.08 11:35)
> Пытаюсь вывести дату и время в заголовке
А не лучше ли в "строке состояния"?
TRSteep (2008-08-12 12:03:00) [8]хотя есть еще одна мысль - может выводить не в заголовке
наверно он все таки предназначен для другого :)
Если выводить например в label
или вобще самому прорисовывать на PaintBox?
{RASkov} (2008-08-12 12:00:00) [9]> На таймере интервал 500 мс - частенько подмигивает надпись...
Хм... можно сделать вначале проверку на смену даты, если не сменилась, то и не "рисовать" ее(дату в кэпшене) т.е. выход из процедуры....
Если секунды таки необходимо отображать, то нет смысла в этой затеи... интервал таймера только нужно увеличить...
TRSteep (2008-08-12 11:55:00) [10]Всем спасибо за советы!
Palladin (2008-08-12 11:47:00) [11]делай. решение нормальное и правильное. секунда так секунда. довольно приемлимо.
TRSteep (2008-08-12 11:45:00) [12]
> таймер для этой задачи - самое то. вот только на кой тебе
> интервал в полсекунды. одной более чем достаточно. а 5 -
> самое то
ну хотелось бы чтобы каждую секунду отображалось...
если проблема только в этом - я думаю так и сделаю
TRSteep (2008-08-12 11:44:00) [13]>Medbe}I{onok XML ©
там вначале caption задаеться строго:
Frm_Main.Caption := DateTimeToStr( Now );
Medbe}I{onok XML (2008-08-12 11:41:00) [14]Frm_Main.Caption := ' Понедельник ' + Frm_Main.Caption;
Это чтобы после энного тика получилось :
'Понедельник Понедельник Понедельник Понедельник Понедельник Понедельник ....... что-то там еще' ?
Palladin (2008-08-12 11:38:00) [15]таймер для этой задачи - самое то. вот только на кой тебе интервал в полсекунды. одной более чем достаточно. а 5 - самое то
| |
