Скачать: CL | DM;

Как работать с параметром 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]

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

---

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

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

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

---

← →
panov ©   (2004-10-16 22:30) [7]

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

В секции implementation


procedure TForm1.EditExit(Sender: TObject);
begin

end;


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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c