Discussion :

[cincap]

Bonjour à toutes et à tous,

Depuis un moment j'essaye de réaliser cette commande sans résultat.

J'ai placé un Tmonthcalendar sur ma forme est ce que lorsqu'il change de mois automatiquement il est possible
de faire changer et exécuter l'item d'un TComBobox ou il est indiqué les 12 mois de l'année.

Exemple le TMonthCalandar indique Mars 2022 il faudrait que l'item du TComBobox indique Mars 2022 et affiche sa liste.

Merci de votre attention.

@+,

cincap

[SergioMaster]

En utilisant le onClick du TMonthCalendar on peut obtenir le texte désiré

Code :

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
procedure TForm1.MonthCalendar1Click(Sender: TObject);
var kv : string;
    idx : integer;
begin
kv :=formatDateTime('mmmm yyyy',monthcalendar1.Date);
idx:=combobox1.items.indexof(kv);
// option avec ajout dans combobox
if idx<0 then Combobox1.items.Add(kv);   
if kv<>ComboBox1.Items[Combobox1.ItemIndex]
  then begin
    combobox1.itemindex:=combobox1.items.indexof(kv);
//    traitement
  end;
// option sans ajout
{if (idx>-1) AND (kv<>ComboBox1.Items[Combobox1.ItemIndex])
  then begin
    combobox1.itemindex:=combobox1.items.indexof(kv);
//    traitement
  end;}
end;

par contre j'ai mis // traitement parce que je n'ai pas trop compris le "affiche sa liste"

[cincap]

@ SergioMaster, merci pour ta solution qui m'agrée du 1er coup.

par contre j'ai mis // traitement parce que je n'ai pas trop compris le "affiche sa liste"

Le TComboBox affiche dans un TRichEdit une liste de 4 autres dates tirées d'un fichier html.

En fait c'est bien la liste qui se trouve dans le TRichEdit.

Voir la discussion : https://www.developpez.net/forums/d2...-windows-10-a/

Encore merci pour la rapidité, j'ai naturellement agrémenté ton code avec celui déjà fait mais cela fonctionne correctement.

Le topic peut être fermé.

@+,

cincap