Как в 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) ...

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