Ĺadny brzuch
Witam !
Napisałem sobie taki prosty program któy o określonej godzinie zamyka aplikację - klienta sieci BT. Program działa, ale chciałem dodać do niego taki mały bajer. Chodzi mi mianowicie o to aby na komponencie label był wyświetlany czas jaki pozostał do zamknięcia programu. Przykładowo program ma się zamknąć o 06:30:00 teraz jest 21:15:00 i chciałbym aby program pokazał mi na komponencie label że do zakończenia pozostało 09:15:00
Widziałem już kiedyś podobne rozwiązanie, ale nie mogę sobie przypomnieć gdzie, poszukiwania na google też nic nie dały.
np. tak:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Timer1: TTimer; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i : TTime; i1 : TTime; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin I1:= StrToTime(Edit1.Text); Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin i := i1-time; Label1.Caption := TimeToStr(i); end; end.
Użytkownik Petermechanic edytował ten post 03 październik 2006, 13:59
Dzięki, właśnie o coś takiego mi chodziło.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Napisałem sobie taki prosty program któy o określonej godzinie zamyka aplikację - klienta sieci BT. Program działa, ale chciałem dodać do niego taki mały bajer. Chodzi mi mianowicie o to aby na komponencie label był wyświetlany czas jaki pozostał do zamknięcia programu. Przykładowo program ma się zamknąć o 06:30:00 teraz jest 21:15:00 i chciałbym aby program pokazał mi na komponencie label że do zakończenia pozostało 09:15:00
Widziałem już kiedyś podobne rozwiązanie, ale nie mogę sobie przypomnieć gdzie, poszukiwania na google też nic nie dały.
np. tak:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Timer1: TTimer; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i : TTime; i1 : TTime; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin I1:= StrToTime(Edit1.Text); Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin i := i1-time; Label1.Caption := TimeToStr(i); end; end.
Użytkownik Petermechanic edytował ten post 03 październik 2006, 13:59
Dzięki, właśnie o coś takiego mi chodziło.