Sender указатель на объект от которого идёт действие.
может есть более лёгкий способ,но я юзаю так:
объявляю глобальную переменную которая будет содержать текущй нажатый Edit
Var MySender: TObject;
Потом сделать одну для всех едитов процедуру Onclick и в ней MySender:=Sender;
а на кнопке (MySender as TEdit).Clear;
|