| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как работать с параметром Sender в процедурах???
Saygak © (2004-10-16 21:10:00)Коороче у меня динамический массив TEdit-ов (ValEdits:array of array of TEdit)и мне нужно каждому присвоить обработчик события OnExit (выход из фокуса), причем в этом обработчике нужно изменять свойства обьекта у которого данное событие произошло. Как я понимаю нуна присвоить каждому ValEdits[i,j].OnExit обьект типа TNotifyEvent, который прописан либо где-то отдельно ручками либо взять статический Edit1 (поставленный на форму), прописать обработку соответствующего события, а потом каждому ValEdits[i,j].OnExit:=Edit1.OnExit...
По крайней мере с событием OnKeyPress так получалось, но там в Sender не используется...
panov (2004-10-16 22:30:00) [1]Добавляешь в public или published секцию примерно такой код
procedure EditExit(Sender: TObject);
В секции implementation
procedure TForm1.EditExit(Sender: TObject);
begin
end;
И присваиваешь
ValEdits[i,j].OnExit := EditExit;
begin...end (2004-10-16 21:40:00) [2]Ну как-как, также, как ты и раньше делал:
ValEdits[i,j].OnExit := Класс_формы.Метод_формы
Saygak (2004-10-16 21:39:00) [3]ммм А как связать процедуру с событием
begin...end (2004-10-16 21:21:00) [4]Ну где-то же обработчик ты должен описать. Можно и просто как метод формы...
Saygak (2004-10-16 21:19:00) [5]Да, кстате, а как зделать тоже самое но без дополнительного Edit1 ????
Saygak (2004-10-16 21:16:00) [6]Спааааааасибо бальшое!!!!
Честно, не знал
begin...end (2004-10-16 21:14:00) [7]TEdit(Sender).Свойство := ...
| |
