Тема: TObject
Показать сообщение отдельно
  #2  
Старый 25.04.2011, 13:36
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Никак...
Если хочешь в одном обработчике работать с несколькими TEdit то можно, например, назначить им разные значения поля Tag и использовать это таким образом:
Код:
procedure Edit1Change(Sender:TObject);
begin
  case (Sender as TEdit).Tag of
    1:(Sender as TEdit).Text:='Это первый Edit';
    2:(Sender as TEdit).Text:='Это второй Edit';
    3:(Sender as TEdit).Text:='Это третий Edit';
    4:(Sender as TEdit).Text:='Это четвертый Edit';
    ....
    n:(Sender as TEdit).Text:='Это н-ный Edit';
  end;
end;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием