Unit RxHook

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1997 Master-Bank } { } {

Classes

TRxWindowHook -

Functions

FindVirtualMethodIndex -
GetVirtualMethodAddress - SetVirtualMethodAddress procedure.
SetVirtualMethodAddress -

Types

PClass
THookMessageEvent

Constants

Variables


Functions


function FindVirtualMethodIndex(AClass: TClass; MethodAddr: Pointer): Integer;


function GetVirtualMethodAddress(AClass: TClass; AIndex: Integer): Pointer;

SetVirtualMethodAddress procedure. Destroy destructor has index 0, first user defined virtual method has index 1.

function SetVirtualMethodAddress(AClass: TClass; AIndex: Integer; NewAddress: Pointer): Pointer;


Types


PClass = ^TClass

THookMessageEvent = procedure (Sender: TObject; var Msg: TMessage;
    var Handled: Boolean) of object

Constants


Variables