Une condition liée aux items d'un combobox

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

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