nesco писал(а):
А событие onDestroy не прокатит для этих целей? Те перед полным уничтожением из деструктора вызывается это событие, делаются нужные действия, а после возврата объект уничтожается уже самим деструктором.Раз несколько уже предлагал оживить свойство Name в Win.pas; т.е там как раз всё просто осуществлять задуманное 3042, ну х.з что там не срастается у вас.
3042, про твой случай
Add(MainForm,2953706,175,119)
{
}
Add(Edit,13545452,245,119)
{
Left=75
Top=145
Width=215
Point(PHandle)
}
Add(InlineCode,7379325,252,175)
{
@Hint=#10:SRData 2.0|
DataPoints=#5:dtPH_|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|24: fControl: PControl;|40: procedure _OnDestroy(Sender: PObj);|10: public |21: dtPH_: THI_Event;|19: procedure Init;|23: constructor Create;|5: end;|0:|14:implementation|0:|27:procedure THiAsmClass.Init;|6:begin |36: fControl := ReadControl(dtPH_,'');|35: fControl.OnDestroy := _OnDestroy;|4:end;|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|16: InitAdd(Init); |4:end;|0:|33:procedure THiAsmClass._OnDestroy;|5:begin|96: _debug('Тут собственно и должен выполнятся код, причём Sender и будет указателем на контрол');|33: _debug(PControl(Sender).Text); |4:end;|0:|4:end.|
link(dtPH_,13545452:PHandle,[])
}
Поиск
Друзья
Администрация