Message innerhalb einer Klasse ???

[teebee]

Diese Fehlemeldung kriegt man, wenn man zu früh auf das Handle zugreifen will. In Create hat man das noch nicht. (Weil der Parent noch keins hat, dessen Parent noch keins hat, usw.) Überschreibe mal CreateWnd und registriere den HotKey dort nach dem inherited.
Parent setzen nicht vergessen, wenn Du die Komponente selbst erzeugst.

Gruß, teebee

[ustra]

Habe jetzt

Delphi-Quellcode:

procedure THotKey.CreateWnd;
begin
  inherited CreateWnd;
  iHotKeyID := GlobalAddAtom(PChar(sName));
  RegisterHotKey(self.handle, iHotKeyID, MOD_CONTROL, Ord(sKey[1]));
end;

eingefügt mit einem override hinter der Methodendeklaration:procedure CreateWnd; override; Trotzdem funzt es nicht. Habe die Codezeilen mit Haltepunkten versehen, aber die werden ignoriert.

[teebee]

Geht es nicht oder kommt die gleiche Fehlermeldung?

[ustra]

So,

ich habe es jetzt hinbekommen. Lag daran, dass ich zwei Variablen mit den WErten nicht richtig gespeichert hatte umd demzufolge die Registrierung fehl schlug. Danke für Deine Hilfe und den anderen.

[teebee]

Mir ist noch etwas aufgefallen:

1. Das Atom musst Du auch wieder löschen, wenn Du es nicht mehr brauchst.
2. CreateWnd kann während der Lebenszeit der Komponente mehrfach aufgerufen werden:
Mit Deinem jetzigen Code erhöhst Du den Referenzzähler für Dein Atom unkontrollierbar. Also am besten das GlobalAddAtom ins Create, ins Destroy ein GlobalDeleteAtom und im CreateWnd nur das RegisterHotkey, das schlägt ja bei einer Wiederholung eh fehl (oder Du baust noch ein Flag ein, das nur einen einmaligen Aufruf gestattet).

Gruß, teebee

[generic]

poste doch bitte nochmal die ganze lösung.

danke

[ustra]

Hier der Code, wie ich diesen momentan benutze:

Delphi-Quellcode:

unit UHotKey;

interface

uses messages, Windows, classes, controls;

const
  MOD_CONTROL = 2;
                      
type THotkeyEvent = procedure of object;
type THotKey = class (TWinControl)
  private
    FOnHotKey: THotkeyEvent;
    iHotkeyID: Integer;
    sName1, sKey1 : String;
    procedure SetOnHotKey(Value: THotkeyEvent);
  public
    constructor create(sName, sKey : String; AOwner : TComponent);
    destructor destroy;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;   
    procedure CreateWnd; override;
  published
      property onHotKeyEvent: THotKeyEvent read FOnHotKey write SetOnHotKey;

end;

implementation

{ THotKey }

//speichert die Werte
constructor THotKey.create(sName, sKey: String; AOwner : TComponent);
begin
  Inherited Create(AOwner);
  sName1 := sName;
  sKey1 := sKey;
end;

//Registriere Hotkey (nur in Verbindung STRG + Key)
procedure THotKey.CreateWnd;
begin
  inherited CreateWnd;
  iHotKeyID := GlobalAddAtom(PChar(sName1));
  RegisterHotKey(self.handle, iHotKeyID, MOD_CONTROL, Ord(sKey1[1]));
end;

//Deregistriert den HotKey
destructor THotKey.destroy;
begin
  UnRegisterHotKey(self.handle, iHotKeyID);     
  Inherited Destroy;
end;


//Beim Laden wird eine Methode zum Ereignis festgelegt
procedure THotKey.SetOnHotKey(Value: THotkeyEvent);
begin
  FOnHotKey := Value;
end;

//Message, die Nachricht bekommt, dass der HotKey gedrückt wurde und diese löst
//dann das Ereignis aus.
procedure THotKey.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = iHotkeyId
  then
    if Assigned(FOnHotKey)
    then FOnHotKey;
end;

end.

[teebee]

Schau Dir besser nochmal mein Posting von oben an...

Gruß, teebee

[ustra]

So, habe Deine Tipps beachtet und eingepflegt.

Besten Dank