Discussion :

[jkbureau]

Bonjour,

je travaille en D7, et dois convertir des twwDBMonthCalendar en tMonthCalendar.

Mais voilà, certains de mes TwwDBMonthCalendar ont des évènements onchange, et TMonthCalendar n'a pas cet évènement-là.

Je cherche une solution à cela, autre que de créer une classe dérivée de TMonthCalendar.

Y aurait-il moyen de se servir des évènements existant de TMonthCalendar pour faire cela?

Je travaille en D7

Merci

[Ph. B.]

Bonjour,

Bonjour,

je travaille en D7, et dois convertir des twwDBMonthCalendar en tMonthCalendar.

Mais voilà, certains de mes TwwDBMonthCalendar ont des évènements onchange, et TMonthCalendar n'a pas cet évènement-là.

Je cherche une solution à cela, autre que de créer une classe dérivée de TMonthCalendar.

Y aurait-il moyen de se servir des évènements existant de TMonthCalendar pour faire cela?

Remplacer les TwwDBMonthCalendar par des TDateTimePicker plutôt que des TMonthCalendar ?
Le TDateTimePicker possède un événement OnChange et sa partie "déroulée" équivaut au TMonthCalendar...

[ShaiLeTroll]

TMonthCalendar est un peu plus compliqué à gérer mais on peut trouver son bonheur dans les API Windows, voici un code que j'ai fait pour aider un collègue pour gérer le click

J'ai utilisé MCHITTESTINFO pour le TMonthCalendar pour récupérer des zones hors de la grille de calendrier comme la zone des mois comme MCHT_CALENDARDATE ou MCHT_TODAYLINK pour affiner le OnClick

Voici une version allégée mais tu as déjà pas mal de piste à explorer

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
//---------------------------------------------------------------------------
void __fastcall T***::MonCalendrierClick(TObject *Sender)
{
  TMonthCalendar* Cal = ((TMonthCalendar*)Sender);
  bool CalRealClick = false;
  // En Vista, on peut choisir le siècle, la décénie, l'année et le mois.
  // On ne veut mettre à jour que si on séletionne une date, sinon on retarde le traitement
  // au prochain clic sur une date
  if ( ! FCalDelayedClick) // FCalDelayedClick est un membre privé de T***, à false par défaut
  {
    // -> la prise en compte réelle du click du calendrier ne doit pas se faire sur le clic du bandeau de navigation
    MCHITTESTINFO CalClicInfo;
    CalClicInfo.cbSize = sizeof(CalClicInfo);
    CalClicInfo.pt = Cal->ScreenToClient(Mouse->CursorPos);
 
    CalClicInfo.uHit = MCHT_CALENDARDATE ;
    int res = Cal->Perform(MCM_HITTEST,0,(LPARAM)&CalClicInfo);
    if (res != MCHT_CALENDARDATE)
    {
      CalClicInfo.uHit = MCHT_TODAYLINK;
      res = Cal->Perform(MCM_HITTEST,0,(LPARAM)&CalClicInfo);
      if (res == MCHT_TODAYLINK)
        CalRealClick = true;
    }
    else
      CalRealClick = true;
 
    if(CalRealClick)
      FCalDelayedClick = false;
 
    ... Cal->Date ... // ici ton code
 
  }
 
  // Si on veut cacher, on ignore la gestion des vues
  // Gestion du calendrier Vista
  if( ! CalRealClick && CheckWin32Version(6,0))
  {
    // le OnClick se produit après que Windows a pris en compte un changement de vue
    FCalDelayedClick = Cal->Perform(MCM_GETCURRENTVIEW,0,0) != MCMV_MONTH;
  }
}