TMonthCalendar estranho

Delphi

01/10/2007

Boa noite,

Seguinte tenho um componente TMonthCalendar no form, mas o mesmo só entra em uma determinada condição quando eu ´Clico´ no calendário.

Ou seja, quando eu abro o form não está entrando na condição...

obs: no evento show do form, eu estou colocando ´mcagenda.date´;

Problema
 if mcagenda.Date = Date then


clicando na agenda funciona está condição.

Segue abaixo um pouco mais...
              if mcagenda.Date = Date then
              begin
                if StrToTime(Cells[0,i]) < Time then
                begin
                  horai := StrToTime(Cells[0,i]);
                  horaf := Time;
                  tempo := MinutesBetween(horaf,horai);
                  Cells[7,i]:= ´At.´+´ ´+IntToStr(tempo)+´ Min´;
                end;
              end;



Unix

Unix

Curtidas 0

Respostas

Unix

Unix

01/10/2007

Problema resolvido

[CODE}
if DateToStr(mcagenda.Date) = DateToStr(Date) then
[/CODE]


GOSTEI 0
POSTAR