| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Куча компонентов на форма [D6, D7, Win2k, WinXP]

Некто ©   (2004-10-14 10:00:00) 

Доброго времени суток.
Проблема такая:
На форме имеется куча Edit'ов и в обработчике "ContextPopup" каждого только одна строчка "Handled:=True".
Например:

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
 Handled:=True;
end;

Можно ли в OnCreate формы сразу сделать чтобы у всех Edit'ы так было.

---

ЮЮ   (2004-10-15 03:17:00) [1]

Что значит не работает?  Я между прочим, код пишу в IDE и лишь работающий помещаю в форуме. У меня всё работает.

> делаю так ...
не видно где. У меня - в методе TForm1, т.е. Components - это  TForm1.Components.

---

Некто   (2004-10-14 15:43:00) [2]

ЮЮ ©   (14.10.04 10:09) [3]
не работает
делаю так

for i:=0 to ComponentCount-1 do
 if (Components[i] is TEdit) and not Assigned(TEdit(Components[i]).OnContextPopup)
   then TEdit(Components[i]).OnContextPopup:=edtNOAnshContextPopup;


edtNOAnsh - это Edit у меня так называется,
остальные тоже по всякому называются, например: edtSect и т.п.

Это имеет значение?

---

Александр Иванов   (2004-10-14 10:10:00) [3]

На закладке Events из списка выбери :)

---

ЮЮ   (2004-10-14 10:09:00) [4]


procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to ComponentCount - 1 do begin
   if
     (Components[i] is TEdit) and
     not Assigned(TEdit(Components[i]).OnContextPopup)
   then
     TEdit(Components[i]).OnContextPopup := Edit1ContextPopup;
 end;
end;


---

Некто   (2004-10-14 10:08:00) [5]

а как?
можно пример плиз....

---

Erik1   (2004-10-14 10:07:00) [6]

Можно назначить единый обрабочик для все TEdit.

---

Наверх