HotKey (Tastenkürzel)

[Sonne]

Hallo erst mal.
Mein Problem ist es, das ich gern mein Programm mit den Kürzeln Strg+Alt+M beenden würde. Ich hab mir die Komponente HotKey genauer angeschaut und muß leider zugeben, das meine Experimente mit dieser Komponente mißlangen.

Ich Danke für jeden Hinweis oder Ratschlag

CU SONNE

[Andreas Kosch]

Hallo,

dafür wird keine Komponente benötigt, die drei zusätzlichen Zeilen sind schneller eingetippt. Die Win32-API-Funktion <b>RegisterHotkey</b> erledigt den Job:
<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private-Deklarationen }
procedure WMHotkey(var Msg: TWMHotkey); message WM_HOTKEY;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotkey(Handle, 1, MOD_CONTROL or MOD_ALT, Ord('M'));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotkey(Handle, 1);
end;

procedure TForm1.WMHotkey(var Msg: TWMHotkey);
begin
Close
end;

end.
</pre&gt

[Hagen Reddmann]

Hi

Davon abgesehen ist die HotKey Komponente nur zur Darstellung und Editierung eines Tastenkürzels da. So wie das TDBEdit erst mit einer Datenbank sinnvoll ist, so ist das THotKey in Verbindung mit Andreas Code erst sinnvoll.

Gruß Hage