Une condition liée aux items d'un combobox [Résolu]

Signaler
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015
-
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015
-
Bonjour!









 









Une question je vous en prie:

sur mon form, j'ai deux comboboxs et un edit.








1ºCombobox
(Renault, Volvo, Mercedez); 2ºCombobox sera toujours vide et atteindra qu'une
option du 1ºcombobox soit








selectionnée.








Dans le OnChange
de mon premier combobox, j'écris les codes ci-dessous afin de filtrer(ou
aspirer) le poids de chaque camions à partir du deuxième combobox.








Mais alors,
j'aimerai que lorsque j'insère un nombre quelconque dans mon edit qui ne pourra
pas être permis pour un des camions (par ex: Renault).








Le Message "le poids general de cette marchandise
est supérieur au poids autorisé pour ce camion"









 










 









...OnChange








begin








 
Combobox2.Items.Clear;








  case
Combobox1.ItemIndex of







0:begin //Renault








 
Combobox2.Clear;








 
Combobox2.Items.Add('15');//Tonnage








  end;







1:begin //Volvo
 
Combobox2.Clear;
 
Combobox2.Items.Add('5');//Tonnage
  end;
2:begin //Mercedez
 
Combobox2.Clear;
 
Combobox2.Items.Add('7');//Tonnage
 
end;




Developper est une dimension pour moi.
Leader2000

2 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
36
evenement EditX.OnChange ou Boutton appliquer par exemple :

var
  PE, PA : integer;
begin
  if TryStrtoInt(EditX.Text, PE) then
    if TryStrToInt(ComboBox2.Items[ComboBox2.ItemIndex], PA) then
      if PE > PA then
        if MessageDlg('Masse supérieure à la masse autorisée.'+#13#10+'Changer la Masse entrée?',
                                mtWarning, [mbYes, mbNo], 0) = mrYes then
          EditX.Text := ComboBox2.Items[ComboBox2.ItemIndex];
end;
<hr size="2" width="100%" />
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015

Bonjour Foxi!

Les codes ont été bien mis. Je les ai mis dans l'évènement OnChange. Mais il y a plantage à ce niveau:
Les valeurs des variables n'ont été changé. Mais je comprends trop bien pourquoi la barre rouge s'plante là dessus_

var
  PE, PA : integer;
begin
  if TryStrtoInt(EditX.Text, PE) then
    if TryStrToInt(ComboBox2.Items[ComboBox2.ItemIndex], PA) then
      if PE > PA then
        if MessageDlg('Masse supérieure à la masse autorisée.'+#13#10+'Changer la Masse entrée?',
                                mtWarning, [mbYes, mbNo], 0) = mrYes then
          EditX.Text := ComboBox2.Items[ComboBox2.ItemIndex];
end;

Developper est une dimension pour moi.
Leader2000