Discussion :

[davels]

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

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
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

[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 )
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, ....

[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

[edam]

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

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
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.

[Sunchaser]

Bonjour,

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

Code :

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

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

@ +

[edam]

Bonjour,

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

Code :

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

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

[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
Serait ce vraiment le faite que ce soit l'évènement OnClick du même objet qui birderait la propriété?