![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Присвоить событию компонента функцию [D6, WinXP]
Gurd © (2008-10-10 16:49:00)Здравствуйте, есть несколько (10-15) combobox и функция
Function TForm1.SelectComboText(Combo1,Combo2 : TComboBox; ChLiBo:TCheckListBox ):TNotifyEvent ;
begin
......
end;
Как сделать что бы эта функция срабатывала на событие OnSelect для этих каждого combobox со своим параметрами, пример приведенный ниже не работает, хоть и компилируется
procedure TForm1.Creat(Sender: TObject);
begin
ComboBox1.OnSelect :=SelectComboText(ComboBox1, ComboBox2,CheckListBox3 );
ComboBox3.OnSelect :=SelectComboText(ComboBox3, ComboBox4,CheckListBox3 );
...
ComboBox9.OnSelect :=SelectComboText(ComboBox9, ComboBox10,CheckListBox3 );
end;
Сергей М. (2008-10-10 19:25:00) [1]http://www.delphikingdom.com/asp/answer.asp?IDAnswer=61015
Gurd (2008-10-10 17:17:00) [2]А можно пример, как это описать
Сергей М. (2008-10-10 17:05:00) [3]SelectComboText, во-первых, должна быть процедурным методом объекта, а не регулярной функцией, а, во-вторых, она должна иметь прототипTNotifyEvent, а не возвращать результат типа TNotifyEvent.
Сергей М. (2008-10-10 17:02:00) [4]
> Как сделать что бы эта функция срабатывала на событие OnSelect
Никак.