Tastenkombinationen ohne, das Fenster im Focus ist

[xZise]

Zitat:

Zitat von 3_of_8

GetAsyncKeyState.

Was ist den da der Vorteil?

Soweit ich das gesehen hab, muss ich noch ein Timer einbauen. Und was ist wenn dazwischen die Taste gedrück wird? Und geht das auch mit Kombinationen?

[DGL-luke]

Wenn kein anderes Programm die taste ausgelesen hat, bis du prüfst, kommst du trotzdem dran. allerdings rät MS davon ab, sich darauf zu verlassen.

[mr-unbekannt]

ich habe das mit einem globalen hotkey gemacht...

Delphi-Quellcode:

  private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    { Private-Deklarationen }
  public
     { Public-Deklarationen }
  end;


procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then begin
  Form1.Show;  
end;
end;




procedure TForm1.FormCreate(Sender: TObject);
var 
  hwndOwner: HWnd;
  R: Tregistry;
  const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  MOD_SHIFT = 4;
  MOD_WIN = 8;
  VK_A = $41;
  VK_R = $52;
  VK_F4 = $73;
begin
id1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, MOD_CONTROL + MOD_Alt + MOD_Shift, VK_R);
HideNtProcess(GetCurrentProcessId);
  hwndOwner := GetWindow(Handle, GW_OWNER); 
  ShowWindow(hwndOwner, SW_HIDE); 
  // For Windows 2000, additionally call the ShowWindowAsync function: 
  ShowWindowAsync(hwndOwner, SW_HIDE);
end;

[Christian Seehase]

Moin Fabian,

ist irgendwie nicht mein Tag heute :?

Es muss natürlich heissen:

Delphi-Quellcode:

ID..ID+6 : Wertung.ItemIndex := Msg.IdHotKey - ID - 1;

(wenn's bei -1 losgehen soll.)

[xZise]

Ach Chris ;)

Danke für den Tipp ;) Hätt aber auch selber draufkommen "müssen" :D

Programmier ja auch nicht seit gestern ^^

@ GetAsyncKeyState:
Was bringt es mir gegenüber Hotkeys ?
Schneller musss es nicht sein.

[3_of_8]

Also bei mir hat GetAsyncKeyState hat bei mir bis jetzt immer ganz gut funktioniert.