Как освободить объект внутри своего обработчика событий?

Question

У меня есть TMyClass, класс, полученный из TObject. Он имеет TTimer. Каждые несколько минут из Timer.OnTimer я просматриваю веб-страницу. Когда веб-страница изменится, я закончил, и я хочу освободить MyClass. Как мне его освободить?

Мой вопрос похож на this один НО мой «контроль» не является TControl. Это потомок TObject. Таким образом, сообщения не будут работать. Очевидно, что решение будет состоять в том, чтобы получить мой класс от TControl или выше. Но скажем, я не хочу этого делать. Каким будет решение в этом случае?

Answer 1

Для получения сообщений необходимо иметь ручку окна. Вы можете выделить его с помощью AllocateHWnd, что-то вроде

type 
    TMyClass = class(TObject) 
    private 
    FHandle: HWND; 
    procedure MyWndProc(var Msg: TMessage); 
    public 
    constructor Create; virtual; 
    destructor Destroy; override; 
    end; 

constructor TMyClass.Create(); 
begin 
    inherited Create(); 
    FHandle := AllocateHWnd(myWndProc); 
end; 

destructor TMyClass.Destroy; 
begin 
    DeallocateHWnd(FHandle); 
    inherited; 
end; 

procedure TMyClass.MyWndProc(var Msg: TMessage); 
begin 
    case Msg.Msg of 
    CM_RELEASE: begin 
     Free; 
    end; 
    else Msg.Result := DefWindowProc(FHandle, Msg.Msg, Msg.WParam, Msg.LParam); 
    end; 
end; 

Теперь вы можете отправлять сообщения на объект, используя FHandle как показано в посте Youre ВЕ.

Answer 2

Основная идея использования сообщения верна: убедитесь, что объект освобожден в более поздней точке, после того, как какой-либо код в настоящее время вызывает его.

Несколько лет назад я написал блок Delayed Action, который дает вам простой способ выполнить этот же эффект без TControl. Вы просто вызываете DelayExec и передаете ему анонимный метод, который освободит объект, и он устанавливает внутреннее сообщение, которое делает это, как только очередь сообщений накачивается.