Вопрос примерно такой, пытаюсь создать компонент который отрабатывалбы сообщения от мыши
проходящие в моей программе и на всех кмпонентах находящихся в окне программы.
Ставить глобальный хук, как мне подсказали, в данном случае, не корректно
поэтому стал ставить хук на этот процесс, но программу все время вышибает,  и дополнительный вопрос как обратится из Componentmy.MouseProc к просудурам описанным в данном компоненте?
вот примерный код

Код

type TComponentmy= class (TCustomControl) ... protected ...  procedure paint:override;  function MouseProc(Code, W,l : Integer): integer;  stdcall; ... implementation var CompCount: integer = 0; Hook: HHOOK = 0; .... procedure TComponentmy.Create (AOwner: TComponent); begin ...  if not (csDesigning in ComponentState) then begin   Inc(CompCount);   if CompCount = 1 then Hook := SetWindowsHookEx(WH_MOUSE,@TComponent.MouseProc, 0, GetCurrentThreadid); end end; function TComponentmy.MouseProc(Code, W,l : Integer):integer; stdcall; begin //[B]тут хотелось бы обратиться  к TComponentmy.Paint[/B] MouseProc:=CallNextHookEx(Hook, Code, W,L ) end;

Я думаю тебе лучше написать отдельно
единую процедуру MouseProc  а уж в ней вызывать метод MouseProc у всех компонентов твоего класса которые она найдёт
и на самом деле тут у тебя ряд неточностей ...
Я так понимаю

var
CompCount: integer = 0;
Hook: HHOOK = 0;

это у тебя глобальные переменные .. так что если ты создашь больше одного контрола то она рухнет.

В общем некорректно ты написал ..

надо так :
1. Инициализируешь хук 1 раз на процедуру MouseProc

А в ней ищешь все свои компоненты и вызываешь метод.
По хорошему напрямую вызывать тоже плохо .. надо бы посылать сообщение определенного вида .. например MY_MESSAGE_MOUSE
Но это уже на твоей совести

function MouseProc(Code, W,l : Integer):integer; stdcall;
begin
// ищешь все свои компоненты данного класса и вызываешь у них определённую функцию :)  MouseProc
end;

с чегобы вдруг он должен рухнуть, от того что compcount изменяется, хотя пожалуй, что не корректно делать глобальным hhook хотя это тоже еще вопрос.
вводить дополнительные цепочки обработки сообщений не хотелось бы, с таким вариантом решения можно былобы поставить глобальный хук (благо с ним вопросов нет) но мне такой вариант не подходит.

Ну под рухнет я имел в виду что работать у тебя будет только один компонент ... остальные будут просто торчать на форме. Ведь хук ты создаёшь один раз .. Но дело твоё! Каждый пишет как хочет ..

Согласен это действительно ошибка с моей стороны , но тем не менее это не решение проблемы,наиболее актуален вопрос  по передаче управления методам класса