Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизА как сделать так что бы например когда я запускаю таймер сек. ме Найти похожие ветки
← →
snoup (2002-03-28 10:50) [0]А как сделать так что бы например когда я запускаю таймер сек. менуты и часы показавала, типа секундомера?
← →
Chistyakov Victor (2002-03-28 11:07) [1]Делаешь интервал 1000 это приблизительно 1 сек. и на событие
OnTimer вешаешь процедуру визуализации
← →
snoup (2002-03-28 11:19) [2]Как это визуализации?
← →
panov (2002-03-28 11:27) [3]>snoup © (28.03.02 11:19)
Например:
procedure TfMainFormCBFiscal.tmDateTimer(Sender: TObject);
begin
sbMain.Panels[0].Text := FormatDateTime("dd.mm.yyyy hh.nn.ss",now);
end;
← →
snoup (2002-03-28 12:22) [4]>panov ©
А нельзя ли по понятнее!!!!!!!!
← →
panov (2002-03-28 12:33) [5]>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:45) [6]>panov
Спасибо это можно ещё сделать по другому но я не заэто,
я зато что мне надо так я кликаю на кнопку таймер врубается и кептион у лебела стоновится сек.мер (ну как на часах) а потом апять нажимаю на другую кнопку и лебел останавлюется вместе с таймером!
← →
MBo (2002-03-28 12:55) [7]велик и могуч русский язык...
Timer1.Enabled:=false;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c