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

Вниз

Как в Sender: TObject определить имя объекта?   Найти похожие ветки 

← →
kay ©   (2005-11-16 13:36) [0]

Существует штук 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 13:49) [1]

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

---

← →
Плохиш ©   (2005-11-16 13:49) [2]

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

---

← →
Savek   (2005-11-16 15:43) [3]

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


---

← →
Lin7 ©   (2005-11-16 16:25) [4]

> kay ©   (16.11.05 13:36)

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

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.047 c