🚀 go-pugleaf

Je¿eli ta procedura bêdzie wywo³ywana w jakimœ oknie, to jest proste
rozwi¹zanie.  W formie ustawiasz property "KeyPreview" na true,
nastêpnie piszesz do tej formy zdarzenia "OnKeyDown".  W parametrach
dostajesz kod klawisza oraz stan klawiszy Ctrl/Alt/Shift.  Wystarczy
wtedy zareagowaæ na tê kombinacjê i ustawiæ parametr Key na zero, aby
zasygnalizowaæ, ¿e ta kombinacja klawiszy zosta³a obs³u¿ona.
Przyk³adowa procedura mo¿e wygl¹daæ tak:

procedure TOkno.FormKeyDown(Sender: TObject;
                            var Key: Word;
                            Shift: TShiftState);
begin
  if  (Key = ord('O')) and (Shift = [ssCtrl])  then
    begin
      TwojaProcedura(parametry);
      Key := 0
    end
  else
    inherited
end;

Przemyslaw Smiejek wrote:

> Mam taki problem - chcia³bym, by jaka¶ procedura wykonywa³a siê po
> naci¶niêciu okre¶lonej kombinacjli klawiszy, ale tak, ¿eby jej w menu,
> ani
> inaczej wywo³aæ nie mo¿na by³o. Tylko t±, okre¶lon±, kombinacj± (np.
> Ctrl-O).
>
> ---
> Pozdrawiam Przemek