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

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

Динамическое зменение события у компонентов, помещаемых на форму? [D6, XP]

Mishenka ©   (2008-03-31 15:10:00) 

Пишу компонент потомок от TForm. Нужно сделать, чтобы всем компонентам, которые бросают на форму в событие OnKeyUp подставлялся метод от формы.
Пробовал сделать следующим образом:
procedure TMyForm.Notification(AComponent: TComponent;
 Operation: TOperation);
begin
 inherited Notification(AComponent, Operation);
 if (AComponent is TWinControl) and (Operation = opInsert) then
   TWinControl(AComponent).OnKeyUp := DoneKeyUp;
 if (AComponent is TWidgetControl) and (Operation = opInsert) then
   TWidgetControl(AComponent).OnKeyUp := DoneKeyUp;
end;
однако пишет Undeclared identifier OnKeyUp, потому-что в TWinControl и TWidgetControl свойство OnKeyUp объявлено как private. Как всё-таки поменять событие у всех помещаемых на форму компонентов, не перечисляя всех возможных типов ?

---

Mishenka   (2008-04-01 09:41:00) [1]

> Leonid Troyanovsky ©   (31.03.08 18:14) [5]
> Странный дизайн.
> Может достаточно TAplicationEvents или даже KeyPreview

Да, действительно KeyPreview лучше. Спасибо!

---

Leonid Troyanovsky   (2008-03-31 18:14:00) [2]

> Mishenka   (31.03.08 15:10)

> Пишу компонент потомок от TForm. Нужно сделать, чтобы всем
> компонентам, которые бросают на форму в событие OnKeyUp
> подставлялся метод от формы.


Странный дизайн.
Может достаточно TAplicationEvents или даже KeyPreview.

А если, все же, решаем исходную задачу, то неясно нужно ли,
чтобы оное отображалось в инспекторе объектов, т.е. в дизайнтайме,
и нужно ли, чтобы назначенный для некоторого контрола обработчик
мог заменять пользователь оной формы.

--
Regards, LVT.

---

Palladin   (2008-03-31 15:52:00) [3]

> Mishenka   (31.03.08 15:32) [2]

это я описАлся конечно не THackWidgetControl=Class(TWinControl), а THackWidgetControl=Class(TWidgetControl)

---

Игорь Шевченко   (2008-03-31 15:34:00) [4]

> Так ведь всякие там TCombobox, TListBox, TEdit наследуются
> от TWinControl


> разве они унаследуют это свойство от THackWidgetControl
> ?


RTFS: Controls.pas

---

Mishenka   (2008-03-31 15:32:00) [5]

Так ведь всякие там TCombobox, TListBox, TEdit наследуются от TWinControl и TWidgetControl и разве они унаследуют это свойство от THackWidgetControl ?

---

Palladin   (2008-03-31 15:18:00) [6]


Type
THackWinControl=Class(TWinControl)
Public
 Property OnKeyUp;
End;

THackWidgetControl=Class(TWinControl)
Public
 Property OnKeyUp;
End;

procedure TMyForm.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (AComponent is TWinControl) and (Operation = opInsert) then
  THackWinControl(AComponent).OnKeyUp := DoneKeyUp;
if (AComponent is TWidgetControl) and (Operation = opInsert) then
  THackWidgetControl(AComponent).OnKeyUp := DoneKeyUp;
end;


---

Наверх