как зарегестрировать горячую клавишу с помощью HotKey

[GAGARIN-NEW]

Скажите пожалуйсто как зарегестрировать горячую клавишу с помощью элемента HotKey1 ?
Регестрировать клавиши я умею но изменить их неполучается ((

регистрирую так :

RegisterHotKey(Handle, 1 ,MOD_CONTROL, vk_F1); //соответственно Ctrl + F1
RegisterHotKey(Handle, 2 ,MOD_CONTROL, vk_F2); //соответственно Ctrl + F2

Всё конечно работает но вот мне нужно назначать/изменять их во время работы программы и чтоб регистрировалось именно то что на данный момент находится в HotKey1...
Можно ли сделать чтото такое :

RegisterHotKey(Handle, 2 ,HotKey1.HotKey );
компилятор говорит что нехватает параметров (( но как я понимаю HotKey1.HotKey соответствует топу типу данных которые нужны функции RegisterHotKey. помогите решить проблему.

Всем СПАСИБА

[GAGARIN-NEW]

Ну у каво какие идеи ?

[GAGARIN-NEW]

ААААААААААААА помогите ктонибуль пожалуйстааааа !
уже 3 дня ничего не могу найти путного....

[Stilet]

Фух...
Смотри сюда:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    HotKey1: THotKey;
    Edit1: TEdit;
    procedure wh(var m:TWMHotKey); message WM_HOTKEY;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure HotKey1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.wh(var m: TWMHotKey);
begin
 MessageBox(GetForegroundWindow,'','',0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,0);
end;

procedure TForm1.HotKey1Change(Sender: TObject);
var chars:integer;modif,md:integer;
begin
chars:=HotKey1.HotKey and dword(-1);
modif:=HotKey1.HotKey shr 8;
caption:='';   md:=0;
if (modif and 32)>1 then begin caption:='Shift';md:=md or MOD_SHIFT;end;
if (modif and 64)>1 then begin caption:=caption+' Ctrl';md:=md or MOD_CONTROL;end;
if (modif and 128)>1 then begin caption:=caption+' alt';md:=md or MOD_CONTROL;end;
 caption:=caption+' '+chr(chars);
 UnregisterHotKey(Handle,0);

 chars:=chars and $FF;

  Caption:=inttostr(chars)+' '+IntToStr(VkKeyScan(chr(chars)));
 if not RegisterHotKey(Handle,0,md,chars) then RaiseLastWin32Error;

end;

end.

Надеюсь это окончательно решит твои траблы...