THotkey wird nicht erkannt

[Lindworm]

Hallo, ich benötige für ein Tool eine Hotkeyfunktion, welche bisher so aussieht:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, hotkey, Shellapi, ComCtrls;

type
  TForm1 = class(TForm)
    DemoHotKey: THotKey;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
{$R *.nfm}

procedure EvtHotkey(Sender: TObject; Name: string);
begin
  if Name = 'Demosave' then
   { Save_demo(); }
end;

procedure erzeugen;
var
  fHKManager: THotkeyManager;
begin
  fHKManager := THotkeyManager.Create;
  [b]fHKManager.Hotkeys['Demosave'].Hotkey := DemoHotKey.HotKey; // <--das mag er irgendwie nicht [/b]
  fHKManager.Hotkeys['Demosave'].Hotkey := HKey; // HKey ist vom Typ TShortCut
  fHKManager.Hotkeys['Demosave'].OnHotkey := EvtHotkey;
  fHKManager.Hotkeys['Demosave'].RegisterHotkey; 
end;

die unit hotkey stammt von Christopher aka Chakotay und der bereich mit dem fHKManager sieht so aus:

Delphi-Quellcode:

THotkeyManager = class(TObject)
  private
    fCollection: TmxJsCollection;
    function GetHotkeys(const Name: string): THotkeyItem;
  public
    constructor Create;
    destructor Destroy; override;

    property Collection: TmxJsCollection read fCollection;
    property Hotkeys[const Name: string]: THotkeyItem read GetHotkeys;

    function AddHotkey(Name: string; Hotkey: TShortCut; RegisterHK: boolean = true): integer;
    procedure DeleteHotkey(Name: string); overload;
    procedure DeleteHotkey(Index: integer); overload;
  end;

Das Problem ist jetzt, dass ich eine Komponente THotKey mit dem Namen DemoHotKey hinzugefügte habe aber der Debugger meint, dass "DemoHotKey" nicht deklariert ist :-/
Kann mir jemand sagen, wo mein Fehler liegt? :mrgreen:

[CalganX]

Hi,
du musst deine Prozeduren, die du hast als Methoden des Formulars deklarieren oder der Prozedur sagen, dass die Komponente auf deinem Formular liegt.

Bei ersterem sieht das so aus (Änderung fett hervorgehoben):

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, hotkey, Shellapi, ComCtrls;

type
  TForm1 = class(TForm)
    DemoHotKey: THotKey;

  private
    [b]procedure EvtHotkey(Sender: TObject; Name: string);[/b]
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
{$R *.nfm}

procedure [b]TForm1[/b].EvtHotkey(Sender: TObject; Name: string);
begin
  if Name = 'Demosave' then
   { Save_demo(); }
end;

procedure [b]TForm1.[/b]erzeugen;
var
  fHKManager: THotkeyManager;
begin
  fHKManager := THotkeyManager.Create;
  fHKManager.Hotkeys['Demosave'].Hotkey := DemoHotKey.HotKey; // <--das mag er irgendwie nicht
  fHKManager.Hotkeys['Demosave'].Hotkey := HKey; // HKey ist vom Typ TShortCut
  fHKManager.Hotkeys['Demosave'].OnHotkey := EvtHotkey;
  fHKManager.Hotkeys['Demosave'].RegisterHotkey;
end;

Die andere Möglichkeit sieht so aus:

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, hotkey, Shellapi, ComCtrls;

type
  TForm1 = class(TForm)
    DemoHotKey: THotKey;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
{$R *.nfm}

procedure EvtHotkey(Sender: TObject; Name: string);
begin
  if Name = 'Demosave' then
   { Save_demo(); }
end;

procedure erzeugen;
var
  fHKManager: THotkeyManager;
begin
  fHKManager := THotkeyManager.Create;
  fHKManager.Hotkeys['Demosave'].Hotkey := [b]Form1.[/b]DemoHotKey.HotKey; // <--das mag er irgendwie nicht
  fHKManager.Hotkeys['Demosave'].Hotkey := HKey; // HKey ist vom Typ TShortCut
  fHKManager.Hotkeys['Demosave'].OnHotkey := EvtHotkey;
  fHKManager.Hotkeys['Demosave'].RegisterHotkey;
end;

(Statt Form1 kannst du auch TForm1 nehmen, für dich (!) sollte es da keinen Unterschied geben)

Chris