|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Показать сообщение через определенное время
Есть несколько вопросов.
1. Как сделать, чтобы при запуске программы она минимизировалась в трей? 2. Как сделать, чтобы при нажатии на значке в трее ПКМ появлялась кнопка "выход"? 3. Как выводить сообщение на экран каждые 60 минут? после нажатия кнопки ок, вывести сообщение через 10 минут. Потом опять через 60 и так до бесконечности. Дайте пожалуйста подробный код. |
#2
|
||||
|
||||
1-2: TCoolTrayIcon, TPopupMenu
3: TTimer Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
Нельзя ли выложить код пункта 3?
|
#4
|
||||
|
||||
интервал таймера - 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; Последний раз редактировалось ryderx34, 16.08.2010 в 00:37. |
#5
|
|||
|
|||
Спасибо за код, но я поставил интервал в таймере 1000, а сообщения появляются очень быстро. Где ошибка?
|
#6
|
||||
|
||||
интервал 1000 это 1 секунда!
Последний раз редактировалось Admin, Сегодня в 10:32. |
#7
|
|||
|
|||
По истечении времени сообщение 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; |
#8
|
||||
|
||||
ошибка в геннах и чебурахках а серьезно поставь в object inspector значения interval в 3600000 и будет тебе счастье
Последний раз редактировалось Admin, Сегодня в 10:32. |