Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Надо реализовать свои часы

Страницы: 1 2 3 >
Ega23 © (2006-08-17 12:28:00)
Предполагается, что трея не будет. Как лучше сделать?

DiamondShark (2006-08-18 13:58:00) [1]

> Ega23 © (18.08.06 13:40) [46]

А вчера спрашивал, где бритый...

Джо (2006-08-18 13:54:00) [2]
> [48] Ega23 © (18.08.06 13:45)
> Так нету заголовка-то. MainForm.BorderStyle:=bsNone;

Насколько я понял, имеются в виду заголовки окон чужих приложений.

Ega23 (2006-08-18 13:45:00) [3]

> я про вывод часов в заголовок текущего окна.

Так нету заголовка-то. MainForm.BorderStyle:=bsNone;

tesseract (2006-08-18 13:44:00) [4]

> Ega23 © (18.08.06 12:40) [43]

я про вывод часов в заголовок текущего окна.

Ega23 (2006-08-18 13:40:00) [5]

> причем строго на flash, в стиле Дали что-нить ))
>

Это чтобы вместо стрелок фаллосы были?
Добро, возьму на заметку... :о)

clickmaker (2006-08-18 13:34:00) [6]

> какуюнибудь html страничку с часами внутри

причем строго на flash, в стиле Дали что-нить ))

sniknik (2006-08-18 13:30:00) [7]
> Так что всё-таки лучше сделать?
> Хотелось изгольнуться и сделать "круто".
включи в винде активный рабочий стол и укажи какуюнибудь html страничку с часами внутри...

Ega23 (2006-08-18 12:40:00) [8]

> поискать или не нато?

Ну не настолько же я безрукий... :о)
Всё ещё вчера сделал...

palva (2006-08-18 12:06:00) [9]
> Надо реализовать свои часы
Не программерское это дело.
Отнеси в отдел реализации. Там реализуют.

tesseract (2006-08-18 11:58:00) [10]

> Ega23 © (18.08.06 11:56) [40]

тогда валялся исходник :-)

поискать или не нато?

Ega23 (2006-08-18 11:56:00) [11]

> "по уму" надо положить TLabel и TTimer. а то, что здесь
> наговорили -- это "по стопам доблестных китайских комсомольцев".
>
>

Скажем так, это самый простой способ. В 99,99% будет работать. Хотелось изгольнуться и сделать "круто". После раздумий вчера пришёл к мнению, что сделаю именно Timer с Label... :о)

Ketmar (2006-08-18 11:23:00) [12]
> [38] Ega23 © (18.08.06 11:10)
"по уму" надо положить TLabel и TTimer. а то, что здесь наговорили -- это "по стопам доблестных китайских комсомольцев".

Ega23 (2006-08-18 11:10:00) [13]

> А ради того, чтоб приложение не висело?

Да оно не особо и "висит". В принципе, на 99,99% случаев обычного таймера хватит.
Просто хочется "по уму" всё сделать...

DiamondShark (2006-08-18 10:44:00) [14]
У меня ощущение, что усилия неадекватны важности задачи.

evvcom (2006-08-18 10:40:00) [15]
> [35] Ega23 © (18.08.06 09:37)
> Ради часиков точно никто ничего переделывать не будет...

А ради того, чтоб приложение не висело?

Ega23 (2006-08-18 09:37:00) [16]

> А может лучше то что делается в основном потоке перенести
> в дополнительный?
> Тогда часы можно будет реализовать в основном, да и прога
> сможет вовремя месаги обрабатывать (не будет задумываться
> и "подвисать")...

Не, не получится. Ради часиков точно никто ничего переделывать не будет... :о)

SergP (2006-08-18 00:49:00) [17]
> [31] TUser © (17.08.06 15:41)

procedure TTimeThread.Execute; ... application.ProcessMessages; ...

и работало?

SergP (2006-08-18 00:45:00) [18]
> с синхронизом не поможет, если основной поток задумывается.
> рисуй время средствами API, без синхрониза.

А может лучше то что делается в основном потоке перенести в дополнительный?
Тогда часы можно будет реализовать в основном, да и прога сможет вовремя месаги обрабатывать (не будет задумываться и "подвисать")...

Ketmar (2006-08-17 15:46:00) [19]
> [31] TUser © (17.08.06 15:41)
тоже вариант. мои первые ещё ужасней были. %-)

TUser (2006-08-17 15:41:00) [20]
Оффтоп.

Моя первая поделка на Delphi - часики. С круглой формой аж поверх всех окон, стрелками и иконкой аж в трее. Движок в версии 5.0 (нехилые пацаки мало версий не лепят) выглядел вот так

procedure TTimeThread.Execute;
var i:integer;
st:string;
begin
i:=0;
while true do begin
inc (i);
if i=1000 then begin
i:=0; st:=TimeToStr(Time);
if st<>lasttime then begin
lasttime:=st;
// {synchronize(}drform;//);
synchronize(drform);
end;
end;
application.ProcessMessages;
end;
end;

:)))))))

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »