Автосохранения по таймеру

[ScreN]

Здравствуйте.
Подскажите пожалуйста. Как реализовать Автосохранение по таймеру?

Есть код

/// Таймер ///
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If ConfigForm.AutoSaveCheck1.Checked Then Begin
If ConfigForm.TimeEditSave.Value=1 Then Form1.Timer1.Interval:=10000;
Form1.SaveFileClick(Sender);
End;
End;

В этом коде проверяется
AutoSaveCheck ( Включена ли функция Автосохранения )
TimeEditSave ( Выбраное время сохранения (1) то есть 1 минута )
И если все так тогда
Form1.Timer1.Interval:=10000; - Выставить таймер на 1 минуту.
И по истичении 1 минуты
Form1.SaveFileClick(Sender); - Запустить процедуру сохранения файла.

Но!
Не работает.. у меня через каждую секунду вываливается окно с сохранением файла...
Подскажите как правильно нужно все это сделать?

У меня предлагается минуты сохранения с 1 минут до 15 минут.
Заранее спасибо!

[Sm1Le]

Begin End в помощь ....

[ScreN]

Ну а так правильно вообще??

[mihali4]

у меня через каждую секунду вываливается окно с сохранением файла

Так и должно быть.
Это ж надо додуматься - в событии таймера устанавливать его интервал...
Нет слов!
Если уж приспичило менять интервал, то нужно таймер остановить перед этим, и запустить снова после смены интервала...

[ScreN]

Блин ну а как тогда? Скажите. Что сделаешь если я НУБ. Я с этим первый раз сталкиваюсь

[mihali4]

Ну, а посмотреть в хэлпе, что такое таймер и с чем его едят?
Это очень трудно?

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Timer1.Enabled:=False;
If ConfigForm.AutoSaveCheck1.Checked Then Begin
If ConfigForm.TimeEditSave.Value=1 Then Form1.Timer1.Interval:=10000;
Form1.SaveFileClick(Sender);
Timer1.Enabled:=True;
End;
End;

[ScreN]

В хелпе не совсем понятно.. там же по английски.
Вы мне скажите я вообще правильно пытаюсь реализовать Автосохранение?

[Deight]

Ты ж только автосохранение применяй если файл сохранен, а то будет диалоговое окно выскакивать.

[ScreN]

/// Таймер ///
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption := TimeToStr(Now);
    If ConfigForm.AutoSaveCheck1.Checked Then SaveAs(Sender);
End;


procedure TForm1.FormActivate(Sender: TObject);
Begin
    If ConfigForm.TimeEditSave.Value=1 Then Form1.Timer1.Interval:=60000;
    If ConfigForm.TimeEditSave.Value=2 Then Form1.Timer1.Interval:=120000;
    If ConfigForm.TimeEditSave.Value=3 Then Form1.Timer1.Interval:=180000;
    If ConfigForm.TimeEditSave.Value=4 Then Form1.Timer1.Interval:=240000;
    Label2.Caption:=IntToStr(ConfigForm.TimeEditSave.Value);
  End;

Ниче не могу понять.. Не работает вот так. Что не так то я делаю ?

[ScreN]

Для проверочки поставил Label2.Caption:=IntToStr(ConfigForm .TimeEditSave.Value);
... Чтобы проверит передается ли значение из TimeEditSave.Value в Label..
И вот что обнаружил.. оно не передается в Label.
Ну в общем как бы передается.. но не так как нужно..
Допустим значение 1.. сохраняем его и выходим из программы.. заходим и значение стоит 1 и там и там..
Но если поменять значение на 2 то в Label оно не меняется пока не перезапустишь программу..

Это нормально? На таймер это случайно не повлияет?