Куча компонентов на форма

← →
Некто (2004-10-14 10:00) [0]

Доброго времени суток.
Проблема такая:
На форме имеется куча Edit"ов и в обработчике "ContextPopup" каждого только одна строчка "Handled:=True".
Например:
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled:=True; end;
Можно ли в OnCreate формы сразу сделать чтобы у всех Edit"ы так было.

← →
Erik1 © (2004-10-14 10:07) [1]

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

← →
Некто (2004-10-14 10:08) [2]

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

← →
ЮЮ © (2004-10-14 10:09) [3]

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:10) [4]

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

← →
Некто (2004-10-14 15:43) [5]

ЮЮ © (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 и т.п.

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

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

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

Куча компонентов на форма Найти похожие ветки