Однотипные процедуры

← →
Леонид (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  объект вызвавший событие&#133

← →
Леонид (2007-03-24 21:21) [6]

Спосибо.

(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 - какая-то сомодельная проверка Едитов

Однотипные процедуры Найти похожие ветки