Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Присвоить событию компонента функцию [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


Никак.


Наверх

Титульная страница Поиск, карта сайта Написать письмо