Ajuda com MonthCalendar.

Delphi

22/05/2009

Boa tarde a todos.

Estou precisando fazer um select no banco utilizando o MonthCalendar.
Quando der um clique no MonthCalendar ele filtra o banco utilizando a data clicada.

Para fazer isto istou utilizando o evento onClick do MonthCalendar. Mas não estou contente, pois independentemente do local que aperto ele executa o onClick, e na verdade eu gostaria que ele execute apenas qdo der um clique em cima dos dias.
Por exemplo qdo dou um clique em cima das setas para mudar o mês ele também executa o evento OnClick e não deveria.

Alguem pode me ajudar?
O que estou fazendo de errado?

Obs. Estou utilizando o Delphi 7 com Firebird 2

Obrigado.
Uelinton


Uelinton_reis

Uelinton_reis

Curtidas 0

Respostas

Vmlima

Vmlima

22/05/2009

Você pode utilizar um flag...

se por exemplo vc utiliza um
qry.parambyname(´Data´).asDateTime := MonthCalendar.Date;

vc pode fazer a verificação de mudança

if qry.parambyname(´Data´).asDateTime <> MonthCalendar.Date then begin
// seu codigo que abre a consulta
qry.parambyname(´Data´).asDateTime := MonthCalendar.Date;
end;


senão use uma variavel global para isso...

if DataAtual <> MonthCalendar.Date then begin
DataAtual := MonthCalendar.Date
end

att.


GOSTEI 0
Uelinton_reis

Uelinton_reis

22/05/2009

Você pode utilizar um flag... se por exemplo vc utiliza um qry.parambyname(´Data´).asDateTime := MonthCalendar.Date; vc pode fazer a verificação de mudança if qry.parambyname(´Data´).asDateTime <> MonthCalendar.Date then begin // seu codigo que abre a consulta qry.parambyname(´Data´).asDateTime := MonthCalendar.Date; end; senão use uma variavel global para isso... if DataAtual <> MonthCalendar.Date then begin DataAtual := MonthCalendar.Date end att.


Boa tarde amigo,

Por favor mais uma informação,
Esta variavel [b:ee86758684]DataAtual[/b:ee86758684], como devo declarar?

Obrigado.

Uelinton


GOSTEI 0
Woinch

Woinch

22/05/2009

  private
    { Private declarations }
    DataAtual: TDateTime; //aqui


Espero ter ajudado...


GOSTEI 0
POSTAR