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;

[SergioMaster]

Bonjour,

non Philippe, je pense qu'il s'agit de deux images distinctes pour essayer de faire comprendre!

en fait il s'agit d'un unique comboedit !
la seule solution que j’entraperçois est de mémoriser en global (privé ou public de la forme, voire en dehors de la forme) l'index de la combobox lors de l'évènement OnSelect
et de changer l'item si le texte change
le hic est de trouver le bon évènement pour tester ce changement . Le onChange, pour l'avoir testé, n'est pas une bonne idée. Il y a le OnExit qui fonctionne, bien que peu satisfaisant à mon gout

voici une proposition, qui ne gère pas tous les cas (mais bon on n'a pas une idée complète non plus)
[Edit] en re-regardant le screenshot le label est 'à renommer' cela voudrait donc dire que seul

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
21
 
private 
   ic : integer;
 
procedure TMainForm.ComboboxExit(Sender: TObject);
begin
if ic>=0 then   // si  sélection  
 begin 
   Combobox.Items[ic]:=Combobox.Text; // renommage
   Combobox.ItemIndex:=ic;  // repositionnement 
{ end // après mon [Edit]
else begin
   Combobox.Items.Add(Combobox.Text);
   ComboBox.ItemIndex:=Combobox.Items.Count - 1;  // si pas combo pas trié} 
end;   
end;
 
procedure TMainFormInventaire.ComboboxSelect(Sender: TObject);
begin
ic:=Combobox.ItemIndex;
end;

[Edit] en re-regardant le screenshot le label est 'à renommer' cela voudrait donc dire que seul si un item a été sélectionné (donc ic>=0) doit être pris en compte

[Ph. B.]

Bonjour,

non Philippe, je pense qu'il s'agit de deux images distinctes pour essayer de faire comprendre!

Effectivement, il s'agit de 2 images du même écran...
Or dans le sujet est évoqué un ComboBox, un ComboEdit, aussi est ce pour cela que j'avais demandé de reformuler le problème...

Voici une autre solution. Sachant que la saisie dans le ComboEdit ne fait pas varier l'ItemIndex (-1 si aucun sélectionné, >= 0 si un sélectionné), j'implémenterais la gestion des évènements OnKeyUp et OnExit du ComboEdit
L'appui sur entrée comme la sortie du contrôle valide la modification...

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
procedure TTabbedForm.UpdateComboEdit;
begin
  // Item sélectionné ?
  if ComboEdit1.ItemIndex >= 0 then
    // Remplacement de l'item
    ComboEdit1.Items[ComboEdit1.ItemIndex] := ComboEdit1.Text;
end;
 
procedure TTabbedForm.ComboEdit1KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if KeyChar = #13 then
    UpdateComboEdit;
end;
 
procedure TTabbedForm.ComboEdit1Exit(Sender: TObject);
begin
  UpdateComboEdit;
end;

A adapter en fonction des besoins...

[jeng37]

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:

Philippe, merci beaucoup pour ta patience,

Mais ce n´est pas ce que je veut faire.


Sergio a raison, c´est exactement ce que je veut faire.
Et merci beaucoup pour ta solution, ca fonctionne!

EDIT: @Philippe, je vais tester ta nouvelle solution, je pense que maintenant on est bon ;-)
Merci en tout cas a vous deux!! (c´était un peut difficile à expliquer) mais finalement on y est arrivée!!

[SergioMaster]

penser à voire à des pour la solution retenue