Текущий архив: 2007.04.15;
Скачать: CL | DM;
Вниз
Однотипные процедуры Найти похожие ветки
← →
Леонид (2007-03-24 21:08) [0]У меня есть набор одинаковых элементов, подскажите как сделать так чтобы когда пользователь переходит к другому элементу вызывалась процедура проверки и редактирования содержимого. Процедура проверки уже написанна, но элементов 40 шт, и писать для каждого
procedure TForm1.Edit1Exit(Sender: TObject);
begin
//Процедура проверки
end;
не хочется. Возможно ли TForm1.Edit1Exit применить для всех элементов, для Edit1..EditN. И как это сделать? Спосибо.
← →
Kolan © (2007-03-24 21:10) [1]> TForm1.Edit1Exit применить для всех элементов
Да, просто в дизайнере перейди на вкладку Events и в событии(OnClick например) выбири эту функцию из списка.
Ватиант два — использоватьс TActionList, TActionManager.
← →
Belorus © (2007-03-24 21:12) [2]Выдели все свои компоненты к которым нужно применить и св-во OnExit укажи например TForm1.Edit1Exit
← →
Kolan © (2007-03-24 21:14) [3]Можно выбрать сразу ве элементы и всем разом назначить.
И самое главное:
но элементов 40 шт
Нафиг не надо столько, перепроэктируй UI пока не поздно.
← →
Леонид (2007-03-24 21:18) [4]Хорошо, а так чтобы проверял содержимое того Edit фокус которого был потерен
← →
Kolan © (2007-03-24 21:19) [5]> того Edit фокус которого был потерен
Sender — объект вызвавший событие…
← →
Леонид (2007-03-24 21:21) [6]Спосибо.
← →
Belorus © (2007-03-24 23:37) [7](Sender as Tedit)
Так надёжнее. Все таки раздел "Начинающим"
← →
RASkov (2007-03-25 00:18) [8]> (Sender as Tedit)
>
> Так надёжнее. Все таки раздел "Начинающим"
Тогда уж так:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Sender is TEdit then Verify((Sender as Tedit).Text);
end;
Можно же и так вызвать обработчик:
procedure TForm1.ButtonClick(Sender: TObject);
begin
Edit1Exit(Sender);
end;
PS Verify - какая-то сомодельная проверка Едитов
Страницы: 1 вся ветка
Текущий архив: 2007.04.15;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.032 c