Combobox.text qui ne se met pas à jour

Version imprimable

Bonjour,

j'ai plusieurs combobox qui utilise la même méthode sur l'évènement Click.
Lorsque le click à été fait, je vérifie le contenu du champ Text et si il correspond au nom de combo, je fais un insert de données provenant d'une DB.
Mon problème est le suivant, lorsque j'ai fini de faire mes Items.Add, je voudrais remettre une valeur dans Text, mais cela ne fonctionne pas 8O
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 procedure TFrmMeubles.FillComboClick(Sender: TObject); var oParams : Variant; begin if Sender is TComboBox then begin with Sender as TComboBox do begin if ('CMB' + UpperCase(Text)) = UpperCase(Name) then begin oParams := Factory[1].resultset('g.Params','ListVal'); oParams.Execute(UpperCase(Text),'1',500); Clear; while oParams.Next do begin Items.Add(oParams.getdata(2)); Application.ProcessMessages; end; oParams.Close; oParams:=null; end; end; (Sender as TComboBox).Text := 'test'; end; end;
J'avoue que je ne comprends pas du tout la raison :aie:

17/08/2006, 16h56
edam

regarde de plus prés le suivi des evenemnt du combobox (pas forcement déclaré dans votre application, simplement pour connetre et comprendre votre coposant ,comme un ami:lol: )
en plus tu change le contenu du combo dans un des principeux evenemnt (a peut prés ce trouve au milieu des autre evenemnt de combobox, pas a lafin)
bah, ....:?
17/08/2006, 17h56
pirbd

Si mes souvenirs sont bons, tu ne peux pas utiliser Text en ecriture si ta combo est dropDownList, il faut utiliser itemIndex ...

Hope it helps

essay d'execute ce code pour voir ce qui ce passe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     Label1.Caption:='change';
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
     Label1.Caption:='Click';
     ComboBox1.Text:='';
end;
end.

19/08/2006, 00h41
Sunchaser
Bonjour,

J'ai fais un petit test avec 'cousin' CBuilder, avec un bout de code comme ceci:
Code:

1 2 3 4 5 6 7 8 //ici, CBt est un TComboBox CBt->Items->Clear(); for (int i = 1; i < 11; i ++) { CBt->Items->Add(AnsiString("essai ") + i); } CBt->Text = "test";
et cela ne fonctionne pas si le TComboBox a, pour sa propriété 'Style', la valeur csDropDownList. Avec csDropDown, cela fonctionne...

En espérant t'aider, et ne pas être a côté de la plaque ;)

@ + ;)
19/08/2006, 01h10
edam
Citation:
Envoyé par Sunchaser

Bonjour,

J'ai fais un petit test avec 'cousin' CBuilder, avec un bout de code comme ceci:

Code:

1 2 3 4 5 6 7 8 //ici, CBt est un TComboBox CBt->Items->Clear(); for (int i = 1; i < 11; i ++) { CBt->Items->Add(AnsiString("essai ") + i); } CBt->Text = "test";

et cela ne fonctionne pas si le TComboBox a, pour sa propriété 'Style', la valeur csDropDownList. Avec csDropDown, cela fonctionne...

En espérant t'aider, et ne pas être a côté de la plaque ;)

@ + ;)
tu met ce code où, lui il le met dans onclik de mem comosant
21/08/2006, 10h29
davels

Je viens de regarder et le style est bien sur csDropDown

Par contre, j'ai tester le code à partir d'un bouton et ... bizarrement cela fonctionne 8O
Serait ce vraiment le faite que ce soit l'évènement OnClick du même objet qui birderait la propriété?