ComboBox, и его предыдущее значение

[shershen]

Есть ли нормальный способ получить предыдущее значение ComboBox'а? Удивился, не найдя такого события (onchange и onselect срабатывают после).

Сообщение отредактировано: shershen - 05.06.11, 01:09

[Amphiluke]

Можно перехватывать на родительском элементе ComboBox`а сообщение WM_COMMAND и в случае, когда HIWORD(wParam) = CBN_SELCHANGE, забирать значение из ComboBox.Text.
Если родительский элемент — форма, то

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
    procedure WMCommand(var Msg: TMessage); message WM_COMMAND;
 
.......
 
procedure TForm1.WMCommand(var Msg: TMessage);
begin
  if Msg.WParamHi = CBN_SELCHANGE then
    if Msg.LParam = Integer(ComboBox1.Handle) then
      Caption := 'Previous value is ' + ComboBox1.Text;
  inherited;
end;

Либо еще можно написать наследника от TCustomCombo и переопределить его метод CNCommand конкретно для случая сообщения CBN_SELCHANGE.
Какой способ в вашем понимании «нормальный», сами решайте. Возможно, есть лучше.

[leo]

Цитата Amphiluke @ 05.06.11, 07:54

Либо еще можно написать наследника от TCustomCombo и переопределить его метод CNCommand конкретно для случая сообщения CBN_SELCHANGE

Либо в рантайме (в FormCreate) перепределить св-во WindowProc конкретного комбобокса

[Демо]

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    FComboLast: String;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Label1.Caption := FComboLast;
  FComboLast := TComboBox(Sender).Text;
end;
 
end.

[leo]

Демо
Ну, это слишком тривиально

[shershen]

Спасибо за ответы. Меня бы устроил вариант товарища Amphiluke, но он, к сожалению, не работает для стиля ComboBox'а csDropDownList - а именно такой стиль я и использую...

[shershen]

Вопрос еще актуален (для combobox со стилем csDropDownList)... Или по крайней мере, подойдет вариант как избежать срабатывания onchange на клик по тому же самому, уже выбраному, элементу.

[Руслан]

Цитата shershen @ 19.05.17, 11:29

Вопрос еще актуален

Чем не подошел вариант Демо?

[shershen]

Цитата Руслан @ 19.05.17, 11:36

Цитата shershen @ 19.05.17, 11:29

Вопрос еще актуален

Чем не подошел вариант Демо?

Сложная программа, не очень грамотно спроектированная) В итоге куча проблем с этим методом.

[Руслан]

Цитата shershen @ 19.05.17, 11:49

В итоге куча проблем с этим методом.

Сгораю от любопытства, хотя бы одна сложность какая?
/*практически в чём она заключается?*/

Сообщение отредактировано: Руслан - 19.05.17, 12:08

[navodri]

На айпи здесь смотрите примеры. Там много всего:
http://win32api-library.hol.es/