Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi pause als hotkey definieren (https://www.delphipraxis.net/32284-pause-als-hotkey-definieren.html)

Ameisenbär 21. Okt 2004 11:38


pause als hotkey definieren
 
ich weiß, dass nun gleich wieder die links auf die suche kommen werden, aber die hat mir leider nicht bei genau diesem problem helfen können.

wie man einen hotkey definiert ist klar. funktioniert auch, wenn mein prog keinen focus hat. jetzt ist nur die frage, wie ich es schaffe die "pause"-taste dazu zu bewegen eben dieses zu tun.


die sehr zusammengestauchte version:
Delphi-Quellcode:
...
  private
  procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
  end;
const ID_z= ord('z');

...
procedure TForm1.WMHotKey(var Msg : TWMHotKey);
begin
  if Msg.HotKey = ord('z') then begin ... end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle, ID_z, 0, ord('z'));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Form1.Handle, ord('z'));
end;

end.
ich mein es muss doch irgendwie ne einfache möglichkeit geben, ohne eben hooks zu verwenden. das war mir nun einfach zu kompliziert alles durchzuarbeiten, vor allem, da es ja mit der z-taste so ging, wie ich wollte.

Dax 21. Okt 2004 11:42

Re: pause als hotkey definieren
 
Statt "ord('z')" könntest du doch auch den Charcode der Pause-Taste angeben: #19.

Ameisenbär 21. Okt 2004 11:54

Re: pause als hotkey definieren
 
hey, danke, klappt hervorragend. hm ich glaube ich sollte mir mal die charcodes von allen tasten besorgen :lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz