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"
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%" />
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;
