Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.11.23;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.021 c
15-1221841992
Terasbetoni
2008-09-19 20:33
2008.11.23
С помощью OpenVPN создать простейшее соединение


2-1223673497
kami
2008-10-11 01:18
2008.11.23
Утечка AnsiString


2-1224048798
ekto
2008-10-15 09:33
2008.11.23
курсор не возвращает записи


2-1223878526
Zalumhan
2008-10-13 10:15
2008.11.23
ListView добавлять ячейки сверху


15-1221834038
tesseract
2008-09-19 18:20
2008.11.23
Экономика





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский