в заданное время выполнить действие, проверьте пожалуёйста=)

[Человек_Борща]

Привет=)
опустим в указанное время надо выполнить какое-то действие.. как это правельно сделать?

Вот что получилось у меня:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,DateUtils, sEdit;

type
  TForm1 = class(TForm)
    MessageEdit: TEdit;
    StartBtn: TButton;
    StopBtn: TButton;
    Timer: TTimer;
    TimeEdit: TsEdit;
    procedure StartBtnClick(Sender: TObject);
    procedure StopBtnClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartBtnClick(Sender: TObject);
begin
Timer.Enabled:=True;
StopBtn.Enabled:=True;
StartBtn.Enabled:=False;
end;

procedure TForm1.StopBtnClick(Sender: TObject);
begin
Timer.Enabled:=False;
StopBtn.Enabled:=False;
StartBtn.Enabled:=True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
If FormatDateTime(TimeEdit.Text,Time) = FormatDateTime('hh:mm',Now) then
ShowMessage(MessageEdit.Text);
Timer.enabled:=False;
end;

end.

проблема вот какая, если убрать из Timer.Timer строку:

Timer.enabled:=False;

то программа работает , но сообщение выводит постоянно, на протяжении всего времени(Пока на часах указанное время(12:15 к примеру, и до 12:16 программа будет засирать ShowMessage'ами экран)).

Если поставить Timer.enabled:=false;
то программа сработает при условии что запущен таймер и только когда на часах будет указанное время.

[DIgorevich]

а почему не сделать Interval=3600 (минуту)?

[Человек_Борща]

хм , это работает.. но сообщение запаздывает и дублируется, почему?

[DIgorevich]

Сообщение не запаздывает. Просто проверка происходит раз в минуту, с момента запуска таймера. Т.е. если таймер запустился в 00:00:30, то и проверка будет в 00:01:30 и т.д.

[_Engine_]

If FormatDateTime(TimeEdit.Text,Time) = FormatDateTime('hh:mm',Now) then
begin
  ShowMessage(MessageEdit.Text);
  Timer.enabled:=False;
end;

[Serge_Bliznykov]

ну и плюс к вышесказанному, я бы ещё сделал так:

If FormatDateTime(TimeEdit.Text,Time) <= FormatDateTime('hh:mm',Now) then

чтобы если таймер проскочил - событие всё равно сработало.

[Человек_Борща]

Благодарю, это работает!