• Registered: 2017-05-30
  • Posts: 254

Topic: Как получить предыдущее значение комбобокса

Есть комбобокс.
В нем обработчик события OnChange.
Можно ли в этом обработчике получить предыдущее значение комбобокса (которое было перед событием OnChange).
Т.е. мне надо  когда изменяется выбранное значение выдавать предупреждающее сообщение "Вы поменяли Значение1 на Значение2"

2 Reply by derek (edited by derek 2018-07-25 22:44:11)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,677

Re: Как получить предыдущее значение комбобокса

Привет, Михаил,
Возможно, попробуйте это так.
Надеюсь это поможет,
Derek.

Post's attachments

Attachment icon mikhail combobox change.zip 338.76 kb, 265 downloads since 2018-07-26 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Как получить предыдущее значение комбобокса

var 
   vcombobox: string;

procedure Form2_ComboBox1_OnDropDown (Sender: TObject);
begin
    vcombobox := Form2.ComboBox1.Text;
end;

procedure Form2_ComboBox1_OnChange (Sender: TObject);
begin
  if vcombobox <> '' then showmessage('You have changed Nationality from ' +vcombobox+ ' to ' +form2.combobox1.text);
end;
Dmitry.