Отображение в Label периода с помощью таймера

[Killer_djon]

Я полностью согласен с mihali4, почему бы не засунуть в глобальную переменную время и потом работать как угодно:

...
var Form1 : TForm1;
fix : TDateTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
fix:=now();
edit1.Text:=TimeToStr(fix);
timer1.OnTimer(self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=TimeTOStr(now());
label1.Caption:=timetostr(now()-fix);
end;

[DenSuper007x]

Вы меня похоже не поняли, я примерно тоже и делал, нужно-то сделать чтобы время я задавал при запуске проекта и как только я его введу, то должен пойти период

[Killer_djon]

var
Form1: TForm1;
st : TDatetime;
st_edit : TDateTime;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
st:=time();
st_edit:= strtotime(InputBox('', '', timetostr(st)));
edit1.Text:=timetostr(st_edit);
Timer1.OnTimer(self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Text = '' then exit;
label1.Caption:=timetostr(time()-strtotime(edit1.Text));

end;

end.


Если я правильно понял значит должно быть так. Т.е. в при старте приложения ты задаешь время формата HH:MM:SS потом оно попадает в edit и пошел отсчет в label

[Killer_djon]

Единственная проблема при вводе в диалоге времени нужно обязательно придерживаться формата времени, т.е. вручную вводить двоеточие!

[puporev]

Все еще маетесь. Вот сделал без кнопки и без программного ввода времени в Эдит. Как только нормально вводишь время в Эдит, начинается отсчет в Лабеле.

procedure TForm1.Timer1Timer(Sender: TObject);
var Fix,Now:TDateTime;
begin
if length(edit1.Text)=8 then
   begin
     Now:=time();
     Fix:=Strtotime(edit1.Text);
     label1.Caption:=timetostr(now-fix);
    end;
 end;
end.

[DenSuper007x]

Фууу, спасибо всем, сделал, сейчас проблемка в другом задании :
Создайте приложение, на форму которого помещены компоненты:
Label — 2 шт. Image — 1 шт. Напишите обработчик события OnMouseMove компонента Image, который отобра-жает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах.
Вот что у меня получилось:
var
Form1: TForm1;
color:Tcolor;
n,m,k:integer;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssLeft in shift then
begin
Label1.Caption:=inttostr(x)+','+int tostr(y);
Color:=Image1.Canvas.Pixels[x,y];
Label2.Caption:=;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('6.bmp' );
end;

end.
У меня не получилось сделать:с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах.
Как это сделать помогите плиз

[DenSuper007x]

И ещё, вопрос по предыдущему проекту, puporev по-твоему способу отсчёт какой-то странный идёт, а по способо Killer_djon бьёт ошибку

[Killer_djon]

А можешь сказать в чем ошибка? Потому что я прежде чем скинул код я его скомпилил и проверил все работает правильно!!!
Хотя я наверное знаю в чем ошибка... просто при вводе в диалоговое окно времени надо вводить и двоеточие, я на самом деле незнаю просто как организовать в InputBox маску по времени... т.е. когда у тебя появляется дилог для ввод времени ты пишешь например:

13:00:00 и тогда пойдет отсчет... двоеточие обязательно надо вписывать.
Если че пиши!

[puporev]

который каждую секун-ду отображает с помощью компонента Label период времени (в формате ЧЧ:ММ:СС), прошедший с момента, указанного в компоненте Edit

Вот именно это у меня лично Label и показывает.

[mihali4]

Сообщение от puporev

Вот именно это у меня лично Label и показывает.

Пардон, конечно... А если время, указанное в эдите, еще не наступило?