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

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

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

А как сделать так что бы например когда я запускаю таймер сек. ме [D5, WinME]

snoup © (2002-03-28 10:50:00)
А как сделать так что бы например когда я запускаю таймер сек. менуты и часы показавала, типа секундомера?

MBo (2002-03-28 12:55:00) [1]
велик и могуч русский язык...

Timer1.Enabled:=false;

snoup (2002-03-28 12:45:00) [2]
>panov
Спасибо это можно ещё сделать по другому но я не заэто,
я зато что мне надо так я кликаю на кнопку таймер врубается и кептион у лебела стоновится сек.мер (ну как на часах) а потом апять нажимаю на другую кнопку и лебел останавлюется вместе с таймером!

panov (2002-03-28 12:33:00) [3]
>snoup © (28.03.02 12:22)

procedure TfMainFormCBFiscal.tmDateTimer(Sender: TObject);
Это обработчик события таймера OnTimer.
Имя этого таймера - tmDate. У него установлены свойства:

Enabled := True;
Interval := 1000; //1 сек.

sbMain.Panels[0].Text := FormatDateTime("dd.mm.yyyy hh.nn.ss",now);

sbMain - Объект TStatusBar. Можешь просто заменить левую часть на Label1.Caption

FormatDateTime("dd.mm.yyyy hh.nn.ss",now);Надеюсь, не надо объяснять...

snoup (2002-03-28 12:22:00) [4]
>panov ©
А нельзя ли по понятнее!!!!!!!!

panov (2002-03-28 11:27:00) [5]
>snoup © (28.03.02 11:19)
Например:
procedureTfMainFormCBFiscal.tmDateTimer(Sender: TObject);
begin
sbMain.Panels[0].Text := FormatDateTime("dd.mm.yyyy hh.nn.ss",now);
end;

snoup (2002-03-28 11:19:00) [6]
Как это визуализации?

Chistyakov Victor (2002-03-28 11:07:00) [7]
Делаешь интервал 1000 это приблизительно 1 сек. и на событие
OnTimer вешаешь процедуру визуализации

Наверх

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