|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ComboBox процедуры
Здравствуйте! У меня общий вопрос: как сделать так, чтобы при выборе элемента 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; Код:
procedure TForm1.N2Click(Sender: TObject); begin button1.OnClick(self); end; |
#2
|
|||
|
|||
лучше действия оформить в Action, а эти Action раздавать и пунктам меню, и кнопкам.
|
#3
|
||||
|
||||
Код:
case combobox.itemindex of 0: fooexecute(foo); 1: barexecute(bar); ... — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
Цитата:
Я спрашиваю что сюда писать, чтобы выполнялось действие TForm1.N9Click Именно что сюда писать? Цитата:
|
#5
|
||||
|
||||
N9.Click; ?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
||||
|
||||
это и пиши:
Код:
N9Click(nil); Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Dmitry_DM (05.09.2012)
|
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Цитата:
Код:
case combobox.itemindex of 0: N9.Click; 1: N10.Click; // ... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
Dmitry_DM (05.09.2012)
|
#9
|
||||
|
||||
Если использовать 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; |
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение: | ||
Dmitry_DM (05.09.2012)
|
#10
|
|||
|
|||
Цитата:
|