[Ru0208]

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

[PhoeniX]

1-2: TCoolTrayIcon, TPopupMenu
3: TTimer

[Ru0208]

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

[ryderx34]

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

Код:

var
  I: Integer;
  BtnClicked: Boolean;

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('something...');
      BtnClicked := False;
      I := 0;
    end
  else
    begin
       if I >= 3600 then
       begin
         ShowMessage('something...');
         I := 0;
       end;
    end;
end;

[Ru0208]

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

[friz]

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

[Ru0208]

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

Код:

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 и будет тебе счастье