[Dmitry_DM]

Здравствуйте! У меня общий вопрос: как сделать так, чтобы при выборе элемента ComboBox выполнялась процедура, которая была установлена на MenuItems? Например процедура на MenuItems:

Код:

procedure TForm1.N9Click(Sender: TObject);
begin
 Ini := TIniFile.Create(ExtractFilePath(paramstr(0))+'options.ini');
 Ini.WriteString('Language','CurrentLang','english');
 Ini.Free;
 FormShow(Self);
end;

Как оформить процедуру на элемент ComboBox, чтобы он выполнял тоже действие. Вот как на кнопку:

Код:

procedure TForm1.N2Click(Sender: TObject);
begin
button1.OnClick(self);
end;

Кому непонятно зачем это - разрабатываю настройки

[AlexSku]

лучше действия оформить в Action, а эти Action раздавать и пунктам меню, и кнопкам.

[M.A.D.M.A.N.]

Код:

case combobox.itemindex of
  0: fooexecute(foo);
  1: barexecute(bar);
  ...

[Dmitry_DM]

Сообщение от M.A.D.M.A.N.

Код:

case combobox.itemindex of

Ну это то понятно.
Я спрашиваю что сюда писать, чтобы выполнялось действие TForm1.N9Click
Именно что сюда писать?

Сообщение от M.A.D.M.A.N.

Код:

  
0://сюда и т.д ;
1: ;
  ...

[PhoeniX]

N9.Click; ?

[Dmitry_DM]

Сообщение от DJ PhoeniX

N9.Click; ?

Ну любая строчка MainMenu1. В моем случае N9.Click; - это TMenuItem.

[NumLock]

это и пиши:

Код:

N9Click(nil);