Frame & RegisterHotkey

[KWN, lnc]

Stilet, выручи. все что ты написал, я все отредактировал (от-программировал) и все равно не то (((( объясни кодом!
p.s. Stilet, а ты попробуй отредактировать код сам и убедишься что не помогает ((

[Stilet]

Я так понимаю ты даже меня не слушаешь, и попытаться понимать не желаешь.
Вот Держи. Уверен что ниче у тебя не получится.
Форма:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    Frame21: TFrame2;
    Memo1: TMemo;
  private
    { Private declarations }
    procedure hk(var m:TWMHotKey); message WM_HotKey;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.hk(var m: TWMHotKey);
begin
 MessageBox(GetForegroundWindow,'Нажат хоткей','',0);
end;

end.

Фрейм

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFrame2 = class(TFrame)
    Memo1: TMemo;
  private       h:THandle;
    { Private declarations }

  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

constructor TFrame2.Create(AOwner: TComponent);
begin
  inherited;
  h:=TForm(AOwner).Handle;
  if not RegisterHotKey(h,0,MOD_CONTROL,VK_RETURN) then RaiseLastWin32Error;
end;

destructor TFrame2.Destroy;
begin
  UnregisterHotKey(h,0);
  inherited;
end;

end.

[KWN, lnc]

что опять не так?! ((((

[Stilet]

RegHotKey не видит переменную h, потому что она (функция эта) не принадлежит фрейму. Опиши ее как метод фрейма.

что опять не так?! ((((

Все не так. Не то ты делаешь изначально.

P.S. Кстати если это сделаешь - твоя программа среагирует на Альт+А открыв яндекс - проверено.

[KWN, lnc]

Stilet, ОГРОМНОЕ СПАСИБО!!! no comment