[vah-smile]

Есть ли в делфи 7 указатель на обект this?
Или как очистить активное поле Edit при нажатии на кнопку если Edit-ов много, а кнопка для очистки только одна?

[Snake22]

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

[Bargest]

Sender не есть аналог this. Sender - это параметр процедуры, его может и не быть. Аналог this - это Self.
И через this (self) описанную задачу не реализовать, т.к. this есть указатель на экземпляр текущего класса, то есть для TForm1.Edit1onClick() это будет TForm1, поскольку сия процедура будет методом формы. Описанную задачу нужно делать как предлагал Snake22, через Sender.

[Snake22]

Сообщение от Bargest

Описанную задачу нужно делать как предлагал Snake22, через Sender. Только дополнительную переменную заводить вовсе не обязательно.

но ведь при нажатии на кнопку, Sender будет принадлежать уже не активному едиту а кнопке, как же без доп.переменной обойтись?

[Bargest]

Я неверно прочитал вопрос. Прочитал "при нажатии на Edit". Тогда да, нужно.