Source position: fpg_main.pas line 280
public procedure TfpgApplication.SetMessageHook(
AWidget: TObject;
const AMsgCode: Integer;
AListener: TObject
);