Discussion :

[awax]

salut
j'ai une combobox remplie par des items bien défine ;
je veux quand je sellection un items,cette items devient dans le text de cette combobox et la liste des items devient vide.
alors j'ai utiliser le code suivant:
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
combobox1.Items.Clear;
end;
qaund je met ce code dans un button ça fonctionne mais lorsque je l'est met dans combobox1click le texte du combobox devient aussi vide.
es qu'il y a une solution
merci

[isachat666]

pourquoi veux-tu faire ça? ça ne me semble pas très logique...

sinon tu peux vider tous les items (avec delete) de ta liste sauf celui sur lequel on a cliqué.

Isa

[Amenofis]

Salut,

peut-être que si tu indiques la raison pour laquelle tu veux obtenir ce comportement... une solution sera plus pertinente, sinon en voici une qui normalement doit supprimer tous les items du combo à l'exception de celui sélectionné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ComboBox1Click(Sender: TObject);
var i:integer;
begin
   With TComboBox(Sender) do
      if Text<>''
         then begin
                Items.Move(Items.IndexOf(Text),0);
                For i:=1 to Items.Count-1 do Items.Delete(1);
                ItemIndex:=0;
                end;             
end;

en espérant répondre à ton besoin...

[awax]

merci probleme résolu