Hotkey to String

[ebber]

Da immer A bei mir rauskommt vermute ich, ich habe wieder was falsch gemacht.

Delphi-Quellcode:

const
  HKM_GETHOTKEY           = WM_USER+2;
  HKM_SETHOTKEY           = WM_USER+2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(SendMessage(JvHotKey1.Handle,HKM_GETHOTKEY,0,0));
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  JvHotKey2.Hotkey:=SendMessage(JvHotKey2.Handle, HKM_SETHOTKEY, 66, 0);    // 66 = B
end;
end.