Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.009 c
