Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Таймер   Найти похожие ветки 

 
Peroon   (2002-10-11 13:40) [0]

Как сделать таймер вида mm:ss отсчитывающий время от одного события до другого? И как в ходе работы таймера увеличивать его значение (допустим к секундам прибавить 20).


 
Song   (2002-10-11 13:45) [1]

TTimer ?


 
Peroon   (2002-10-11 14:01) [2]

Мне нужно чтобы этот таймер отображался на форме.
Короче. Нажал кнопку - он включился. Нажал вторую - прибавилось 20 секудн. Нажал третью - остановился.
Как это можно сделать?


 
gek   (2002-10-11 14:11) [3]

Есть такое как date - имеем Е double
Вот и делай с ним чтоь хочешь


 
qube   (2002-10-11 14:12) [4]

Peroon (11.10.02 14:01)
Label положи и Caption по собфтиям таймера меняй.


 
Zemal   (2002-10-11 14:15) [5]

Как-как!!! Ручками делать :)... Берёшь таймер и ставишь на форму... устанавливаешь интервал и обрабатываешь события и нажатия на кнопки... а лучше сначало взять книгу и почитать! Или ты хочешь чтоб мастера за тебя прогу написали и выслали?! Это вообще вопрос из разряда примитивной элементарщины! Такие примеры можно готовые в книгах и хелпах найти... что ты от мастеров-то хочешь? Чтоб тебя научили программировать? Возьми книгу и учись...


 
Alx2   (2002-10-11 14:18) [6]

Что-то непонятно. Либо все очень просто, либо имелось в виду что-то еще.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Timer1: TTimer;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
StartTime : TDateTime;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StartTime := Now;
Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label2.Caption := "Прошло времени со старта таймера: "+TimeToStr(Now-StartTime);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := "Системное время:" + timeToStr(Now);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
end;

end.

PS
Зачем это все надо, интересно?


 
Zemal   (2002-10-11 14:34) [7]

Мдяяяя... скоро будем объяснять что такое begin и end... и чем отличается Int64 от Integer... отправляйте уже таких умников к хэлпакам и книгам!!! Заманали уже!!! Тут что курс Делфи за 21 день что-ли?! Полезной информации в форуме уже тяжело найти, путаешься в потоке элементарщины... :(


 
Shrek   (2002-10-11 15:03) [8]


> Zemal
Поинится верку о Маше с теберкулёзом, там Вы учили использовать готовые функции, вот Вам и результат!



Страницы: 1 вся ветка

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

Наверх





Память: 0.57 MB
Время: 0.035 c
8-68876
Gayrus
2002-06-23 08:40
2002.10.21
OpenGL


1-68702
ultrasuper_asd
2002-10-10 23:31
2002.10.21
Как выровнять текст в RichEdit?


1-68843
Павел Хабаров
2002-10-10 13:23
2002.10.21
Как программно передвигать курсор мыши


1-68769
Петя
2002-10-11 16:47
2002.10.21
exit Code


3-68605
Link
2002-09-28 08:20
2002.10.21
максимальное значение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский