Discussion :

[exyacc]

bonjour,
j'ai un souci pour changer le text de la combobox dans l'evenement 'onchange' (ou n'importe quel autre)
j'ai vu d'autre discussion avec ce problème mais pas vu de solutions.

j'ai une combobox avec les valeurs suivantes 1 mois, 2 mois, 3 mois , personnalisé
quand je choisis "personnalisé" ça ouvre une form en modal ou je choisis une période de date et quand je quitte j’écris dans combobox.text ma date;
sauf que ça fait rien,
si je mets un bouton qui écris dans combobox.text ma date, ça marche, mais dans un événement de la combobox, ça marche pas (sans doute qu'il rafraîchi après...)
y'a t-il un moyen de modifier le text de la combobox dans l'événement onchange, ou oncloseup ou onselect de la combobox... ?

merci

exyacc

[Papy214]

une solution bourrin :

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
var
  Texte: string;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with tform2.Create(nil) do
  begin
    showmodal;
    release;
  end;
  Texte := 'cekkonveut';
  timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled := false;
  ComboBox1.Text := texte;
end;

[exyacc]

vi , c'est ce que j'ai fait pour le moment le timer, mais j'ai pas osé le dire ! lol , mais bon, après tout, si ça permet de fonctionner juste avec 2 lignes de code en plus... :o)
merci

[Papy214]

J'ai fait quelques autres tests hier soir mais pas concluants du tout !
Apparemment, il faut automatiquement sortir du code de l’événement pour agir sur la propriété.
Comme je suis curieux et têtu, je referai quelques essais et si je trouve une solution plus élégante, je repasserai par ici .

[exyacc]

oki merci

en plus y'a aucun événement qui se fait assez "tard"
j'ai regardé rapide dans la JVCL, mais ça a l'air pareil..

[ThWilliam]

Bonjour.

Si j'ai bien compris le problème...
En sélectionnant "Personnalisé", il y a 2 possibilités :

1) modifier le texte de l'item "personnalisé"
2) ou créer un nouvel item.

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
 
procedure TForm1.ComboBox1Select(Sender: TObject);
var
  Index: integer;
begin
    with combobox1 do
        if Items[ItemIndex] = 'personnalisé' then
        begin
             // récupérer la valeur Texte puis...
             // solution 1
             Items[ItemIndex]:= 'personnalisé: ' + texte;
             // ou solution 2
             Index:= Items.Add(texte); // ajout d'un item
             ItemIndex:= Index;  // sélection de l'item ajouté
        end;
    // traitement...
end;

Thierry

[Papy214]

Justement, si j'ai bien compris l'énoncé du problème, il ne s'agit pas d'ajouter un élément à la liste mais juste d'afficher un texte qui ne ferait pas partie de la liste. Comme si on tapait le texte au clavier.
J'ai testé l'ajout, puis sélection pour forcer l'affichage, et pour finir la suppression de l'item, mais ça n'a rien donné.
J'ai aussi essayé un envoi de message mais sans résultat.
Sauf que .... je viens de réaliser que j'ai utilisé SendMessage et que PostMessage aurait été plus judicieux pour laisser le temps au code de l'évènement de se terminer.
ça mène à rien de bon de faire des tests devant la télé

[exyacc]

en fait dans la liste déroulante, j'ai par exemple "1 mois" "2 mois" et "custom"
quand je clique "custom" , j'ai une form avec 2 datetimepicker pour choisir une période, et quand je ferme cette forme, j'ecris dans le text de la combobox par ex 01/01/2014 - 02/02/2014 ( pour voir ce que je viens de choisir)
mais si je reclique le combobox, j'ai toujours "1 mois" "2 mois" et "custom"

le message "01/01/2014 - 02/02/2014" s'affiche que si je passe par un "timer" , si je fais la modif dans un des événement de la combobox, ça s'affiche pas

[Papy214]

L'autre solution à laquelle j'avais pensé. A adapter pour faire quelque chose de plus élégant.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
 
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    OldProc : TWndMethod;
  public
    procedure ComboProc(var msg: TMessage);
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
var
  Texte: string;
 
procedure TForm1.ComboProc(var msg: TMessage);
begin
  if (msg.msg = 1025) then
  begin
    ComboBox1.Text := Texte;
    Exit;
  end;
  OldProc(msg);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  OldProc := ComboBox1.WindowProc;
  ComboBox1.WindowProc := ComboProc;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with tform2.Create(nil) do
  begin
    showmodal;
    release;
  end;
  Texte := 'Mon choix';
  PostMessage(ComboBox1.Handle, 1025, 0, 0);
end;
 
end.