Discussion :

[jeng37]

Bonjour,

J´ai un problème avec une ComboEdit.

Je veut renomer un élement dans la liste, au moment ou je le click (sélectionne).
Je sais le faire avec une ComboBox et un Edit séparé mais pas avec la ComboEdit, et je sais pas si j´utilise le bon événement...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TTabbedForm.ComboEdit1CanFocus(Sender: TObject;
  var ACanFocus: Boolean);
 
var x: integer;
    value: string;
begin
 
    x := ComboBox1.ItemIndex;
    Value := ComboEdit1.Text;
    RadioB[x].Text := Value;
    ComboEdit1.Text := Value;
end;

cesi ne fonctionne pas...

[Aooka]

OnChange ?

[jeng37]

OnChange ?

Bonjour,

d'abord merci pour la réponse.

Mais j´ai déja essayé celui là aussi.

mais j´ai le mème effet.

La variable value a bien le texte que j´ai rentrée, mais il n y a pas de mise a jour au niveau de la ComboEdit, ni RadioB est mis a jours.

[Ph. B.]

Bonjour,

Je veut renomer un élement dans la liste, au moment ou je le click (sélectionne).

Je sais le faire avec une ComboBox et un Edit séparé mais pas avec la ComboEdit, et je sais pas si j´utilise le bon événement...

Vous voulez renommer un item de la liste ?

Votre code est un mix de composants de la solution qui marcherait avec la nouvelle et est en plus inopérant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TTabbedForm.ComboEdit1CanFocus(Sender: TObject;
  var ACanFocus: Boolean);
 
var x: integer;
    value: string;
begin
 
    x := ComboBox1.ItemIndex;  // <= pourquoi le composant de l'ancienne solution ? ? ?
    Value := ComboEdit1.Text;
    RadioB[x].Text := Value;
    ComboEdit1.Text := Value; // <= Vous ne changez rien, value n'a pas été modifiée !
end;

[jeng37]

x := ComboBox1.ItemIndex; // <= pourquoi le composant de l'ancienne solution ? ? ?

Parceque je prend l'index de cette combobox pour afficher mes éléments qui correxpondes.

Value := ComboEdit1.Text;
RadioB[x].Text := Value;
ComboEdit1.Text := Value; // <= Vous ne changez rien, value n'a pas été modifiée !
end;

Exactement, c'est ca mon problème, je ne sais pas comment recevoir le nouveau text de l´élément changée (l´élément que je veut renommer et cela sans changer l´index).

[Ph. B.]

Exactement, c'est ca mon problème, je ne sais pas comment recevoir le nouveau text de l´élément changée (l´élément que je veut renommer et cela sans changer l´index).

Désolé , mais je ne comprends pas ce que vous voulez obtenir. Pouvez vous donner un jeu d'essai précis ainsi que les composants impliqués ?

[jeng37]

Désolé , mais je ne comprends pas ce que vous voulez obtenir. Pouvez vous donner un jeu d'essai précis ainsi que les composants impliqués ?

Ok je ne sais pas comment l´expliquer autrement.
Voici deux screen shots ou l´on voie ce que je veut faire.

[Ph. B.]

Ok je ne sais pas comment l´expliquer autrement.

Ok, donc si j'ai bien compris, il s'agit de transférer un item d'une combobox source vers une comboedit cible dont la propriété Text contient l'élément à remplacer...
Donc je ferais:

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
var
  IdxCible: Integer;
 
//...
 
  // Identifier la position de l'item dans la liste cible
  IdxCible := ComboEdit1.Items.IndexOf(ComboEdit1.Text);
 
  // Item identifié
  if IdxCible >= 0 then
  begin
    // Remplacement de l'item
    ComboEdit1.Items[IdxCible] := ComboBox1.Items[ComboBox1.ItemIndex];
    // Positionnement de la combo cible
    ComboEdit1.ItemIndex := IdxCible;
  end;