Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.021 c