Discussion :

[exyacc]

bonjour,
j'ai un souci pour changer le text de la combobox dans l'evenement 'onchange' (ou n'importe quel autre)
j'ai vu d'autre discussion avec ce problème mais pas vu de solutions.

j'ai une combobox avec les valeurs suivantes 1 mois, 2 mois, 3 mois , personnalisé
quand je choisis "personnalisé" ça ouvre une form en modal ou je choisis une période de date et quand je quitte j’écris dans combobox.text ma date;
sauf que ça fait rien,
si je mets un bouton qui écris dans combobox.text ma date, ça marche, mais dans un événement de la combobox, ça marche pas (sans doute qu'il rafraîchi après...)
y'a t-il un moyen de modifier le text de la combobox dans l'événement onchange, ou oncloseup ou onselect de la combobox... ?

merci

exyacc

[Papy214]

une solution bourrin :

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
var
  Texte: string;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with tform2.Create(nil) do
  begin
    showmodal;
    release;
  end;
  Texte := 'cekkonveut';
  timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled := false;
  ComboBox1.Text := texte;
end;

[exyacc]

vi , c'est ce que j'ai fait pour le moment le timer, mais j'ai pas osé le dire ! lol , mais bon, après tout, si ça permet de fonctionner juste avec 2 lignes de code en plus... :o)
merci

[Papy214]

J'ai fait quelques autres tests hier soir mais pas concluants du tout !
Apparemment, il faut automatiquement sortir du code de l’événement pour agir sur la propriété.
Comme je suis curieux et têtu, je referai quelques essais et si je trouve une solution plus élégante, je repasserai par ici .

[exyacc]

oki merci

en plus y'a aucun événement qui se fait assez "tard"
j'ai regardé rapide dans la JVCL, mais ça a l'air pareil..

[ThWilliam]

Bonjour.

Si j'ai bien compris le problème...
En sélectionnant "Personnalisé", il y a 2 possibilités :

1) modifier le texte de l'item "personnalisé"
2) ou créer un nouvel item.

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
 
procedure TForm1.ComboBox1Select(Sender: TObject);
var
  Index: integer;
begin
    with combobox1 do
        if Items[ItemIndex] = 'personnalisé' then
        begin
             // récupérer la valeur Texte puis...
             // solution 1
             Items[ItemIndex]:= 'personnalisé: ' + texte;
             // ou solution 2
             Index:= Items.Add(texte); // ajout d'un item
             ItemIndex:= Index;  // sélection de l'item ajouté
        end;
    // traitement...
end;

Thierry