Локальные хуки внутри класса

[Impuls1989]

Ну же народ. Неужто никто не знает в чем проблема?

[evg_m]

метод класса и регулярная процедура имеют разное описание и НЕ МОГУТ быть взаимозаменяемы без дополнительных ухищрений

в API можно использовать только регулярные процедуры(функции) (НЕ МЕТОДЫ Классов)

[Impuls1989]

Ну наконец-то хоть один вразумительный ответ. Спасибо что избавили меня от плясок с бубном вокруг исходников...
На данный момент извращаюсь таким образом:

  TSelectControl = class(TComponent)
  private
    FHotKey:boolean;

    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  protected
  public

  published
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
  end;
...
procedure TSelectControl.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  case msg.message of
  WM_KEYDOWN: begin
                  case msg.wParam of
                  VK_UP: begin
                          if (FhotKey) then
                          begin
                          ShowMessage('CTRL+UP');
                          end;
                         end;
                  VK_DOWN: begin
                            if (FhotKey) then
                            begin
                              ShowMessage('CTRL+DOWN');
                            end;
                           end;
                  VK_LEFT: begin
                            if (FhotKey) then
                            begin
                              ShowMessage('CTRL+LEFT');
                            end;
                           end;
                  VK_RIGHT: begin
                             if (FhotKey) then
                               begin
                                 ShowMessage('CTRL+RIGHT');
                               end;
                            end;
                  VK_CONTROL: begin
                                FhotKey:=true;
                              end;
                  end;
              end;
  WM_KEYUP: begin
                      if (msg.wParam = VK_CONTROL) then FhotKey:=false;
                   end;
  end;
    Handled := False;
end;

constructor TSelectControl.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  Application.OnMessage:=AppMessage;
  FHotKey:=false;
end;

destructor TSelectControl.Destroy;
begin
  inherited Destroy;
end;

Спасибо этой статье...
Скажите: этот способ нормальный, или мне дальше что-то изобретать? А то мне как-то страшновато переопределять Application.OnMessage