Hi Steven,
What I would do is make an "Apply" button and make
the timer run then. You can do that by:
Timer1.enabled := true;
On the minutes or seconds part whichever you choose
(for which I recommend a TSpinEdit) just multiply it in
the program.
So it would look kinda like this. This example works with
1 counting as 1 minute.
procedure TForm1.ApplyButton(Sender: TObject);
var minutes: integer;
begin
minutes := SpinEdit1.Value * 60000;
Timer1.Interval := minutes;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1OnTimer(Sender: TObject);
var minutes: integer;
begin
minutes := Timer1.Interval / 60000;
ShowMessage('This message shows every '+ IntToStr(minutes) +' !!!');
end;
So you place the procedure that you want to execute at every
so many minutes at the place where i put the messagebox.
I hope this helps,
BobbaFet
Everyone has a right to my opinion.
E-mail me at
cwcon@programmer.net