Скачать: 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 — объект вызвавший событие&#133

---

← →
Леонид   (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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c