|
Вопрос # 2 937/ вопрос открыт / |
|
Здравствуйте, эксперты!
Можно ли организовать обработку событий в цикле?
Например:
В форме есть 60 надписей (Tlabel) которые меняют свой цвет при нажатии на них, как описано в коде. Переменная QuestionNow определяет, на какую надпись нажали (используется в другой процедуре). Вставил 60 процедур обработки аналогичного кода для каждой надписи.
А нельзя ли это организовать короче?
Приложение: Переключить в обычный режим- var
- QuestionNow :Integer;
- ......
- procedure TTestForm.Q1Click(Sender: TObject);
- begin
- QuestionNow:=1;
- if Q1.Color=clLime then Q1.Color:=clRed else
- Q1.Color:=clYellow ;
- end;
- ........
 |
Вопрос задал: KwaK (статус: Посетитель)
Вопрос отправлен: 22 июня 2009, 00:00
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Паровоз
Здравствуйте, Чуприна Сергей!
Назначьте всем один обработчие и в нем напишите
if (Sender as TLabel).Color=clLime
then (Sender as TLabel).Color:=clRed
else (Sender as TLabel).Color:=clYellow ;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 22 июня 2009, 00:07
Оценка за ответ: 4
|
Ответ #2. Отвечает эксперт: Вадим К
Здравствуйте, Чуприна Сергей!
Можно. Для начала надо написать исправленный обработчик. Его надо написать всего для одной лейбы (в будущем, когда научитесь, можно будет писать отдельно)
procedure TTestForm.Q1Click(Sender: TObject);
var s:string;
begin
//QuestionNow:=1;
//предполагаю, что все лейбы имеют имя вида q1, q2, q3 и так дальше.
s := TLabel(Sender).name;
delete(s,1,1);
QuestionNow := strtoint (s);
if TLabel(Sender).Color=clLime then TLabel(Sender).Color:=clRed else
TLabel(Sender).Color:=clYellow ;
end;
Теперь просто выделяем все метки (просто мышкой на форме. Но если они лежат на панели, то это так просто не получиться. Но это можно сделать, если зажать shift). идем в инспектор объектов, вкладка events и находим там обработчик OnClick (и кликаем один раз). Открываем комбобокс возле него и выбираем наш обработчик.
Всё, теперь они будут все пользоваться одним обработчиком.
Но затея с именами это плохо, и есть более надежный метод. У каждого компонента есть свойство tag. Это обычное целое число и туда можно писать что угодно. А потом читать:) Я бы записал номера вопросов туда, а читал бы как TLabel(Sender).Tag
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 22 июня 2009, 00:11
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 22 июня 2009, 01:21; участников в обсуждении: 2.
|
|
KwaK (статус: Посетитель), 22 июня 2009, 00:15 [#1]:
Ответ #1. Отвечает эксперт: Паровоз
Здравствуйте, Чуприна Сергей!
Назначьте всем один обработчие и в нем напишите
if (Sender as TLabel).Color=clLime
then (Sender as TLabel).Color:=clRed
else (Sender as TLabel).Color:=clYellow ;
нельзя ли уточнить фразу "Назначьте всем один обработчик". насколько я понимаю имя процедуры обработки содержит <имя объекта><событие>. Как двум разным объектам я назначу один обработчик?
|
|
Gooddy (статус: 3-ий класс), 22 июня 2009, 01:21 [#2]:
События правильно разные, а обработчик - функция - одна. Выделяем все объекты мышкой и выбираем для них одну функцию.
Чисти код! Чисти код! Чисти код!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
