Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=427163&view=findpost&p=3865287 Fri, 06 May 2022 07:55:09 +0000 TMethod.Data почему-то не того типа https://forum.sources.ru/index.php?showtopic=427163&view=findpost&p=3865287 OnChange является методом формы, поэтому так :)]]> Jin X Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=427163&view=findpost&p=3865236 Thu, 05 May 2022 09:08:25 +0000 TMethod.Data почему-то не того типа https://forum.sources.ru/index.php?showtopic=427163&view=findpost&p=3865236
    function TFormMain.TryCallEvent(Obj: TObject; Event: TNotifyEvent): Boolean;
    begin
      Result := Assigned(Event);
      if Result then
        Event(Obj);
    end;
Вызываю (из-под CheckBoxClick, к примеру): TryCallEvent(ComboList, ComboList.OnChange);
Всё ок.

Хочу сократить до такого:
    function TFormMain.TryCallEvent(Event: TNotifyEvent): Boolean;
    begin
      Result := Assigned(Event);
      if Result then
        Event(TObject(TMethod(Event).Data));
    end;


А вот теперь TObject(TMethod(Event).Data) почему-то имеет тип не контрола, а TMainForm.
Что за ерунда? ЧЯДНТ?]]> Jin X Delphi: Общие вопросы