Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.97.14.84] |
|
Сообщ.
#1
,
|
|
|
Сделал вот такую прослойку, чтобы вызывать обработчики простых чужих событий из других событий.
function TFormMain.TryCallEvent(Obj: TObject; Event: TNotifyEvent): Boolean; begin Result := Assigned(Event); if Result then Event(Obj); end; Всё ок. Хочу сократить до такого: function TFormMain.TryCallEvent(Event: TNotifyEvent): Boolean; begin Result := Assigned(Event); if Result then Event(TObject(TMethod(Event).Data)); end; А вот теперь TObject(TMethod(Event).Data) почему-то имеет тип не контрола, а TMainForm. Что за ерунда? ЧЯДНТ? |
Сообщ.
#2
,
|
|
|
Короче, значение в OnChange является методом формы, поэтому так
|