| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в Sender: TObject определить имя объекта? [D7, WinXP]

kay ©   (2005-11-16 13:36:00) 

Существует штук 20 TEdit, при редактировании используется event OnChange и на всех одна процедура

procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in ['0'..'9',',','.',#8] then
   begin
     if ((Pos(????????.Text,',')=0) and ((Key='.') or (Key=','))) then Key:=',';
   end
 else Key:=#0;
end;

как узнать имя объекта, чтобы проверить на содержимое?

---

Lin7   (2005-11-16 16:25:00) [1]

> kay ©   (16.11.05 13:36)

Sorry не вчитался в вопрос, мой ответ не в тему...

---

Savek   (2005-11-16 15:43:00) [2]

if ((Pos((Sender as TEdit).Text,',')=0) ...


---

Lin7   (2005-11-16 13:49:00) [3]

У edita есть свойство tag - прономеруй edit'ы (в свойстве tag) и проверяй номер tag'а.

---

Плохиш   (2005-11-16 13:49:00) [4]

if Sender is TEdit then xxx := TEdit(Sender).Name

---

Наверх