Pokaż wyniki 1 do 5 z 5

Temat: Hotkey

  1. #1
    Zarejestrowany
    Oct 2009
    Postów
    3

    Domyślnie Hotkey

    Jak zrobić żeby pod wybranym hotkeyem była jakaś procedura
    np.
    procedure lol
    begin
    if hotkey
    then

    end.

  2. #2
    maciek jest offline IT
    Zarejestrowany
    Jul 2006
    Skąd
    Łódź
    Postów
    249

    Post

    w Form.OnCreate rejestrujsz globalny hotkey (np ctrl+f1):
    Kod:
    RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL,  VK_F1);
    a w Form.OnClose zwalniasz rejestracje:
    Kod:
    UnregisterHotKey(Form1.Handle, $0001);
    teraz obsluga skrotow, w private wpisz:
    Kod:
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    a nizej pod implementation:
    Kod:
    procedure TForm1.WMHotKey(var Msg: TWMHotKey);
    begin
    if Msg.WParam = $0001 then
     begin
      mojaprocedura;
      showmessage('lub inny tekst');
     end;
    end;
    Pozdrawiam

  3. #3
    Zarejestrowany
    Oct 2009
    Postów
    3

    Domyślnie

    Dzięki
    Teraz mam inny problem moja procedura klika myszka na pulpit np ale tez chce zęby klikała wszędzie nie tylko na pulpit. Gdy uruchamiam procedurę hotkeyem klika mi na pulpit ale okienko z programem odznacza się i następnym razem gdy kliknę nie działa procedura
    Żeby działała musi być na wierzchu okno jak to ominąć?

  4. #4
    maciek jest offline IT
    Zarejestrowany
    Jul 2006
    Skąd
    Łódź
    Postów
    249

    Domyślnie

    powinno dzialac zawsze, to globalny hotkey, pokaz caly swoj kod programu
    Pozdrawiam

  5. #5
    Zarejestrowany
    Oct 2009
    Postów
    3

    Domyślnie

    Działa teraz.
    jak zrobić żeby pod F1 było, nie ctr+f1

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52