Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
использую для размещения часов (формат h:m) на компоненте MainMenu, часы должны располагаться в правом углу
(Файл Правка .... 00:00)
расположение в правом углу получается сделать, но только как изменяется время в таймере меню изменяется, подскажите как это исправить
вот код

 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
    Hour := HourOf(Now);
    Mins := MinuteOf(Now);
 
    hor.Caption := IntToStr(Hour);
 
    if Mins < 10
       then begin min.Caption := '0'+IntToStr(Mins) end
       else begin min.Caption := IntToStr(Mins);end;
 
MenuItem111.Caption :=GetDayOfWeek +' '+hor.Caption+':'+min.Caption;
 
ModifyMenu(MainMenu1.Handle, 8 { индекс меню, начиная слева с нуля},
    mf_ByPosition or mf_Popup or mf_Help, MenuItem104.Handle,
    PChar(''));
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var  cHour,cMin: word;
begin
      // получить текущее время
    cHour := HourOf(Now);
    cMin :=  MinuteOf(Now);
 
    if cHour <> Hour then
          begin
             Hour := cHour;
          end;
 
          if cMin <> Mins then
          begin
             Mins := cMin;
             if mins <10 then  min.Caption := '0' + IntToStr(Mins)           
                else
                    min.Caption := IntToStr(Mins);
MenuItem111.Caption := GetDayOfWeek + ' '+hor.Caption+':'+min.Caption;
          end;

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 5 февраля 2012, 17:34 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

VJe@n (статус: 1-ый класс), 6 февраля 2012, 01:35 [#1]: Это что за очередной велосипед по вычислению и показу времени? ))) procedure TForm1.Timer1Timer(Sender: TObject); begin ModifyMenu(MainMenu1.Handle, 8, mf_ByPosition or mf_Popup or mf_Help, MenuItem111.Handle, PChar(FormatDateTime('hh:mm', Now))); end; У меня сегодня радость! Я сегодня сделал гадость! :)

casio (статус: Посетитель), 6 февраля 2012, 14:24 [#2]: VJe@n: спасибо работает конечно но только после того как нажать на раздел меню, а нужно что бы обновлялось само!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.