Global Hotkey

prøv at kigge her:

http://www.eksperten.dk/spm/29317

/ZIRON

Jeg skal bruge en hvor jeg kan definere i runtime... Det andet der var en property du sætter i designtime...
Jeg skal nemlig bruge et ubestemt antal hotkeys...

Prøv at kigge på www.undu.com, der ligger nogle artikler om hvordan du gør

Jeg har faktisk mere eller mindre selv fundet ud af det...
Poster koden når jeg er færdig, hvis batterierne i min mus holder så længe...

Sådan... så har jeg den:


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    HotKey1: THotKey;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure mam(var Message: TWMChar); message WM_HOTKEY;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ID: Integer;
  HKLST: TStringList;

implementation

{$R *.dfm}

procedure TForm1.mam(var Message: TWMChar);
begin
SetForegroundWindow(Handle);
ShowMessage(HKLST.Strings[Message.CharCode]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lVKey: word;
  lvShift: TShiftstate;
  lModifier: UINT;
  LstS: String;
begin
lModifier := 0;
ShortcutToKey(HotKey1.HotKey, lvKey, lvShift);
if CheckBox1.Checked then lModifier := lModifier or MOD_WIN;
if ssShift in lvShift then lModifier := lModifier or MOD_SHIFT;
if ssAlt in lvShift then lModifier := lModifier or MOD_ALT;
if ssCtrl in lvShift then lModifier := lModifier or MOD_CONTROL;

RegisterHotKey(Handle, ID, lModifier, LOBYTE(lVKey));
ID := ID +1;
if CheckBox1.Checked then LstS := LstS + \'Win+\';
LstS := LstS + ShortCutToText(HotKey1.HotKey);
HKLST.Add(LstS);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HKLST := TStringList.Create;
end;

end.

i uses er GlobalHotkey ikke nødvendig........ ups...