Discussion :

[looping]

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

[sat83]

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

[Just-Soft]

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!

[looping]

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 :

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

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+

[Just-Soft]

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

Code :

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

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

Bonne chance.