На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: jack128, Rouse_, Krid
  
    > Как узнать об изменении даты?
      Следующий пример демонстрирует обработку сообщения WM_TIMECHANGE. Приложение, которое изменяет системное время, посылает сообщение WM_TIMECHANGE всем окнам верхнего уровня.

      ExpandedWrap disabled
        type  
         TForm1 = class(TForm)  
         
         private  
         
         { Private declarations }  
         
           procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE;  
         
         public  
         
         { Public declarations }  
         
         end;  
         
          
         
        var  
        Form1: TForm1;  
         
        implementation  
         
        {$R *.DFM}  
         
        procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE);  
        begin  
          Form1.Caption := 'Time Changed';  
        end;
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0219 ]   [ 16 queries used ]   [ Generated: 28.04.24, 09:00 GMT ]