VPF::OnChange комбобокса: как обратится к Sender ?

malor

Дата 28.10.2011, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Программно создаются комбобоксы. К ним привязываем процедуру обслуживающую событие OnChange, и в этой самой процедуре нужно обратиться к самому комбобоксу, а именно:

Код

........................
  combobox := TCombobox.Create(RegistrationForm);
  combobox.Parent := RegistrationForm;
  combobox.Visible := true;
  combobox.OnChange := ComboboxChange;

........................
procedure TRegistrationForm.ComboboxChange(Sender:TObject);
var
  idAnswer : Word;
begin
  // Извлечем из глубин комбобокса желаемую цифру, чтоб потом что-то проверить по ней.
  idAnswer := Word(Sender.Items.Objects[Sender.ItemIndex]);
  if (CheckAdvanced(idAnswer)) then
  begin
      // bla-bla
  end;

end;

На строке про
idAnswer := Word(Sender.Items.Objects[Sender.ItemIndex]);
выдаст:
[DCC Error] uRegistration.pas(428): E2003 Undeclared identifier: 'Items'

Delphi XE

Это сообщение отредактировал(а) malor - 28.10.2011, 11:04

AndreyIQ

Дата 28.10.2011, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8

Код


idAnswer := Word(TCombobox(Sender).Items.Objects[TCombobox(Sender).ItemIndex]);

malor

Дата 28.10.2011, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Спасибо, bro.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »