Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
3-22591           Velocity              2002-03-16 15:58  2002.04.08  
Как создать таблицу без использования BDE?


14-22818          Alexandr              2002-02-26 11:47  2002.04.08  
две копии windows 98


4-22893           Брыкун Дмитрий        2002-02-05 19:09  2002.04.08  
Как получить текст в TEdit в чужом окне.


1-22736           snoup                 2002-03-26 13:43  2002.04.08  
Почему пишу PlaySound( c: .... *.wav ,0,SND_FILENAME); а оно выдаёт ошибку и не хотит работать


7-22848           viksoft               2002-01-09 14:44  2002.04.08  
Подскажите как генерировать звук ???