Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Некто   (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 и т.п.

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

---

← →
ЮЮ ©   (2004-10-15 03:17) [6]

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

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

---

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

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

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