[Ru0208]

Есть несколько вопросов.
1. Как сделать, чтобы при запуске программы она минимизировалась в трей?
2. Как сделать, чтобы при нажатии на значке в трее ПКМ появлялась кнопка "выход"?
3. Как выводить сообщение на экран каждые 60 минут? после нажатия кнопки ок, вывести сообщение через 10 минут. Потом опять через 60 и так до бесконечности.
Дайте пожалуйста подробный код.

[PhoeniX]

1-2: TCoolTrayIcon, TPopupMenu
3: TTimer

[Ru0208]

Нельзя ли выложить код пункта 3?

[ryderx34]

интервал таймера - 1000

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

<b>var</b>   I: Integer;   BtnClicked: Boolean;   <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>   BtnClicked:= True; <b>end</b>;   <b>procedure</b> TForm1.Timer1Timer(Sender: TObject); <b>begin</b>   I := I + 1;   <b>if</b> (I >= 600) <b>and</b> BtnClicked <b>then</b>     <b>begin</b>       ShowMessage('something...');       BtnClicked := False;       I := 0;     <b>end</b>   <b>else</b>     <b>begin</b>        <b>if</b> I >= 3600 <b>then</b>        <b>begin</b>          ShowMessage('something...');          I := 0;        <b>end</b>;     <b>end</b>; <b>end</b>;

[Ru0208]

Спасибо за код, но я поставил интервал в таймере 1000, а сообщения появляются очень быстро. Где ошибка?

[friz]

интервал 1000 это 1 секунда!

[Ru0208]

По истечении времени сообщение 2 выводится бесконечное число раз через секунду, а нужно через час, после нажатия на кнопку. И после первого сообщения. Где ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button1Click(Sender: TObject); begin   BtnClicked:= True; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin   I := I + 1;   if (I >= 600) and BtnClicked then     begin       ShowMessage('сообщение 1');       BtnClicked := False;       I := 0;     end   else     begin        if I >= 3600 then        begin          ShowMessage('сообщение 2');          I := 0;        end;     end; end;

[friz]

ошибка в геннах и чебурахках а серьезно поставь в object inspector значения interval в 3600000 и будет тебе счастье