Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.23;
Скачать: CL | DM;

Вниз

Присвоить событию компонента функцию   Найти похожие ветки 

 
Gurd   (2008-10-10 16:49) [0]

Здравствуйте, есть несколько (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 17:02) [1]


> Как сделать что бы эта функция срабатывала на событие  OnSelect


Никак.


 
Сергей М. ©   (2008-10-10 17:05) [2]

SelectComboText, во-первых, должна быть процедурным методом объекта, а не регулярной функцией, а, во-вторых, она должна иметь прототип TNotifyEvent, а не возвращать результат типа TNotifyEvent.


 
Gurd   (2008-10-10 17:17) [3]

А можно пример, как это описать


 
Сергей М. ©   (2008-10-10 19:25) [4]

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=61015



Страницы: 1 вся ветка

Текущий архив: 2008.11.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
2-1223829610
yasuo
2008-10-12 20:40
2008.11.23
Как правильно настроить Runtime packages (чтобы Exe был малым )


2-1223560708
sql___
2008-10-09 17:58
2008.11.23
получить все дочерние эл-ты дерева


2-1224079903
Дмитрий
2008-10-15 18:11
2008.11.23
Определить, когда форма УЖЕ развёрнута


15-1222006281
@!!ex
2008-09-21 18:11
2008.11.23
Где взять StarCraft с полной озвучкой(русской или английской)


2-1223702031
Vinum
2008-10-11 09:13
2008.11.23
Измерить отрезок времени