| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Таймер [D5, WinME]

Peroon ©   (2002-10-11 13:40:00) 

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

---

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

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

---

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

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

---

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

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

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:15:00) [4]

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

---

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

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

---

gek   (2002-10-11 14:11:00) [6]

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

---

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

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

---

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

TTimer ?

---

Наверх