[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; ?

[NumLock]

это и пиши:

Код:

N9Click(nil);

[Dmitry_DM]

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

N9.Click; ?

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

[PhoeniX]

Сообщение от Dmitry_DM

В моем случае N9.Click; - это TMenuItem.

TMenuItem имеет метод Click, симулирующий нажатие на пункт меню.

Код:

case combobox.itemindex of
  0: N9.Click;
  1: N10.Click;
  // ...

[YVitaliy]

Если использовать TAction's то можно так сделать:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Clear;
 combobox1.AddItem('Action0',ActionManager1.Actions[0]);
 combobox1.AddItem('Action1',ActionManager1.Actions[1]);
.............................................................
end;
.............................................................
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 (combobox1.Items.Objects[combobox1.ItemIndex] as TAction).Execute;
end;

Ну, или вроде того.

[Dmitry_DM]

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

TMenuItem имеет метод Click, симулирующий нажатие на пункт меню.

Код:

case combobox.itemindex of
  0: N9.Click;
  1: N10.Click;
  // ...

Я ваш метод использовал. Спасибо! Тема закрыта.