Вопрос № 86561: Добрый день, Эксперты! Скажите пожалуйста, как мне назначить обработчик события OnChange для только что созданного с помощью функции TComboBox.Create() ComboBox'у ? Заранее благодарный за быстрый ответ....
Вопрос № 86.561
Добрый день, Эксперты! Скажите пожалуйста, как мне назначить обработчик события OnChange для только что созданного с помощью функции TComboBox.Create() ComboBox'у ? Заранее благодарный за быстрый ответ.
Отправлен: 12.05.2007, 11:18
Вопрос задал: Bohdan (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gh0stik
Здравствуйте, Bohdan!
В приложении модуль в котором описана процедура OnChange.
Процедура создания и заполнения объекта.
procedure TForm1.Button1Click(Sender: TObject);
begin
Cbox:=TComboBox.Create(Self);
with Cbox do
begin
Parent:=Form1;
Top:=50;
Left:=50;
Items.Add('first');
Items.Add('second');
OnChange:=OnChangeBox;
end;
end;
Сама процедура OnChange
procedure TForm1.OnChangeBox(Sender: TObject);
begin
ShowMessage('Change!!!');
//пишите нужный код
end;
Good Luck!!!
Приложение:
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 12.05.2007, 11:32 Оценка за ответ: 5 Комментарий оценки: Благодарю за ответ. Еще не проверял, однако как-то так и я думал, но хотел в этом убедиться
Отвечает: W@NDeReR
Здравствуйте, Bohdan!
Там где вы создаете ComboBox напишите следуущее
NameComboBox.OnChange:=ComboBoxChange;
где NameComboBox имя создаваемого ComboBox'а
Создаете в разделе Private процедуру(можно любую) типа такой
procedure ComboBoxChange(Sender: TObject);
Нажимаете Ctrl+Shift+C и вписываете то что вы хотели чтобы произошло при событии onChange
--------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.
Ответ отправил: W@NDeReR (статус: 4-ый класс)
Ответ отправлен: 12.05.2007, 17:27 Оценка за ответ: 5 Комментарий оценки: Спасибо, уже сделал
Отвечает: Elpher2006
Здравствуйте, Anborom! Смотрите код в приложении. Кстати, параметр Sender в MyComboChange необходим обязательно.
Приложение:
--------- Не делай другим того, чего сам не хочешь испытать!
Ответ отправил: Elpher2006 (статус: 1-ый класс)
Ответ отправлен: 13.05.2007, 03:40
