Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.12.2010, 10:18
true true вне форума
Новичок
 
Регистрация: 03.10.2010
Сообщения: 64
Репутация: 10
По умолчанию вопрос по времени

Вот я указал в DateTimeOicker'e время и в указаное время должно вылезти showmessage, как это сделать? пробывал так но не получается..

Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin

if DateTimePicker1.Time=Time
then
begin
Timer1.Enabled:=true;
end;
Ответить с цитированием
  #2  
Старый 25.12.2010, 10:23
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

То есть, например,в 13.00 27.12.2010 вылезает сообщение, так что ли?
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #3  
Старый 25.12.2010, 11:05
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Можно в таймере (тогда приложение толжно быть всегда активно), а в таймере сверять дату и время с нужными тебе. Есть еще два способа: записать программу в автозагрузку, и при загрузке, если дата не верна, выходить из программы, если же верна - выдавать сообщение... Или же писать свою службу, но на делфи это довольно сложновато...
Пример проверки даты вот:
Код:
1
2
3
4
5
6
7
8
var
  Data: TDate;
begin
  Data := Now;
  if(Date = Date) then
    ShowMessage('Сегодня ' + DateToStr(Now) + ', поэтому вывелось это сообщение.')
  else
    Close;
__________________
Помогаю за Спасибо
Ответить с цитированием
  #4  
Старый 25.12.2010, 11:27
true true вне форума
Новичок
 
Регистрация: 03.10.2010
Сообщения: 64
Репутация: 10
По умолчанию

Цитата:
Сообщение от EvilRussian
То есть, например,в 13.00 27.12.2010 вылезает сообщение, так что ли?

ну вот я ввожу время нажимаю на кнопку и в заданое мной время должен сработать таймер и все..

v1s2222, мне вот только время нужно, чтобы я установил время нажал кнопку и в то время которое установил вылезло бы окошко с сообщением

Чтото типа будильника

Последний раз редактировалось true, 25.12.2010 в 11:36.
Ответить с цитированием
  #5  
Старый 25.12.2010, 11:38
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Ну в чем проблема тогда?
Кидаешь таймер на форму, интервал даешь какой хочешь (можно оставить 1 секунду) и едит, в который будешь вводить время (с секундами).
Ну а в таймере пишешь:
Код:
1
2
IF(TimeToStr(Now) = Edit1.Text)
  then ShowMessage('Mesage');

В едит должен вводить нужное тебе время, например: "10:10:10" - сообщение будет в десять часов, 10 минут, 10 секунд.
__________________
Помогаю за Спасибо
Ответить с цитированием
  #6  
Старый 25.12.2010, 11:38
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Тогда программа должна всегда висеть в трее.
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #7  
Старый 25.12.2010, 12:00
true true вне форума
Новичок
 
Регистрация: 03.10.2010
Сообщения: 64
Репутация: 10
По умолчанию

Спасибо всем.. про будильник меня вдохновило.. я нашел сорс и это событие:
Код:
1
2
3
4
5
6
7
procedure TForm1.Timer2Timer(Sender: TObject);
var
ST:SystemTime;
begin
getlocaltime(ST);
if (ST.Whour=StrToInt(Edit1.Text))and (ST.WMinute=StrToInt(Edit2.Text)) then beep;
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:04.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025