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

Вниз

GetPropInfo...   Найти похожие ветки 

← →
MetalFan ©   (2004-06-21 12:38) [0]

Доброе время дня, Мастера!
есть код, работающий через сабж, позволяющий учтановить св-во OnKeyPress у любого контрола...
function SetMyKeyPress(aControl: TObject): boolean;
var
 lPropInfo: PPropInfo;
 lMethod : TMethod;
begin
 result := assigned(aControl);
 if result then
 begin
   lPropInfo := GetPropInfo(aControl, "OnKeyPress");
   result := assigned(lPropInfo) and (lPropInfo^.PropType^^.Kind = tkMethod);
   if result then
   begin
   //ЗДЕСЬ НИЧЕГО НЕ МЕНЯТЬ!
     lMethod.Data := aControl;
     iltLiters: lMethod.Code := @OnMyKeyPress;
     SetMethodProp(aControl, lPropInfo, lMethod);
   end;
 end;
end;
...
procedure OnMyKeyPress(ASelf, ASender: TObject;var Key: Char);
begin
...
end;

а вопрос следующий: как мне запомнить (если он был назначен) предыдущий обработчик, и вызывать его в случае необходимости?
как я подозреваю, надо копать в сторону GetMethodProp...
жду совета)

---

← →
MetalFan ©   (2004-06-21 13:35) [1]

все... хм) всем спасибо!
вроде разобрался!
кому интересно, пишите - выложу, что нашел!

---

← →
GrayFace ©   (2004-06-22 19:04) [2]

Клади.

---

← →
MetalFan ©   (2004-06-24 19:04) [3]

> Клади.

что-то много у меня кода получилось... не получится в форум выложить)
хотя можно было и по-проще сделать...

---

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

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

Наверх

Память: 0.44 MB
Время: 0.038 c