Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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 — объект вызвавший событие&#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 вся ветка

Текущий архив: 2007.04.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
2-1174941046
ba+ya
2007-03-27 00:30
2007.04.15
Свойства системы


9-1146341758
Pa5ha
2006-04-30 00:15
2007.04.15
Солнце на OpenGL


1-1171803886
Moo-Moo-
2007-02-18 16:04
2007.04.15
drag-and-drop


15-1174377105
jack128
2007-03-20 10:51
2007.04.15
Автоматическое уничтожение объектов


8-1149606425
tsa
2006-06-06 19:07
2007.04.15
Требуется пример работы с DSPack