datetimepicker et DBgrid

bonjour,

est ce qu'il y une astuce pour mettre un choix de date dans un TBgrid ?

actuellement je fait comme ceci:

- je met un bouton ellipsis dans la colonne souhaitée
- sur l'événement de ce bouton => Tcalendar.visible:=true;
- j'ai mis un menu popup relié à ce Tcalendar: une fois que l'utilisateur à choisi sa date, il active le menu popup => je renvois la valeur date du calendrier dans le champ en question et je rend non visible le calendrier

ca fonctionne bien
mais aujourd'hui j'ai 3 champs date dans un TBgrid: donc 3 Tcalendar, 3 menu popup ... ca fait brouillon !!!

est ce qu'il ni aurait pas plus simple ?

merci

Tu ne peux pas utiliser le même TCalendar, TmenuPopup plutot que d'en utiliser 3?

Citation:

---

Envoyé par sat83

Tu ne peux pas utiliser le même TCalendar, TmenuPopup plutot que d'en utiliser 3?

---

+1

la seule chose à faire est de tester la colonne qui est censée répondre au calendrier!

salut

j'y ai pensé mais comment faire pour renvoyer la valeur sur le bon champ ?
autrement dit comment identifier le champ qui à appelé le calendrier ?

Exemple:
Voila le bout de code venant du menu popup qui renvoie la date dans le champ table4DATE_EST

mais si je dois renvoyer vers un autre champ ?

Code:

---

1 2 3 4 5 6 7 8

procedure TForm3.Fermer1Click(Sender: TObject); begin if table4.State in [dsedit,dsinsert] then begin table4DATE_EST.Value:=monthcalendar1.Date; monthcalendar1.Visible:=false; end;

---

A+

ayant repris ton code voilà ce que je peux te proposer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure _do(champ : TField); begin champ.Value := Form3.monthcalendar1.Date; Form3.monthcalendar1.Visible := False; end;   procedure TForm3.Fermer1Click(Sender: TObject); begin if table4.State in [dsedit,dsinsert] then _do(table4DATE_EST); end;

---

à présent tu peux utiliser la procédure _do à ton guise rien qu'en lui passant un paramètre de type TField.

NB : écrit sur le tas donc rien n'est sûr :D

Bonne chance.