Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.036 c
