Как работать с параметром Sender в процедурах???

← →
Saygak © (2004-10-16 21:10) [0]

Коороче у меня динамический массив TEdit-ов (ValEdits:array of array of TEdit)и мне нужно каждому присвоить обработчик события OnExit (выход из фокуса), причем в этом обработчике нужно изменять свойства обьекта у которого данное событие произошло. Как я понимаю нуна присвоить каждому ValEdits[i,j].OnExit обьект типа TNotifyEvent, который прописан либо где-то отдельно ручками либо взять статический Edit1 (поставленный на форму), прописать обработку соответствующего события, а потом каждому ValEdits[i,j].OnExit:=Edit1.OnExit...
По крайней мере с событием OnKeyPress так получалось, но там в Sender не используется...

← →
begin...end © (2004-10-16 21:14) [1]

TEdit(Sender).Свойство := ...

← →
Saygak © (2004-10-16 21:16) [2]

Спааааааасибо бальшое!!!!
Честно, не знал

← →
Saygak © (2004-10-16 21:19) [3]

Да, кстате, а как зделать тоже самое но без дополнительного Edit1 ????

← →
begin...end © (2004-10-16 21:21) [4]

Ну где-то же обработчик ты должен описать. Можно и просто как метод формы...

← →
Saygak © (2004-10-16 21:39) [5]

ммм А как связать процедуру с событием

Ну как-как, также, как ты и раньше делал:

ValEdits[i,j].OnExit := Класс_формы.Метод_формы

Добавляешь в public или published секцию примерно такой код
procedure EditExit(Sender: TObject);

В секции implementation

procedure TForm1.EditExit(Sender: TObject); begin end;

И присваиваешь
ValEdits[i,j].OnExit := EditExit;

Как работать с параметром Sender в процедурах??? Найти похожие ветки