Delphi: Comment utiliser TShiftState type de variable?

Je développe une application Delphi.
Sur TImage.Événement MouseDown je veux faire X tâche si la touche shift est enfoncée, Y tâche si la touche ctrl est enfoncée et Z tâche si aucun d'entre eux n'est pas pressé. Pour cela, je suis en utilisant TShiftState variable. Maintenant, j'ai une fonction dans laquelle je dois passer cette variable en paramètre.

procedure Something(keyState : TShiftState);

Maintenant Dans cette fonction, ce que je devrais droit de vérifier l'état de la clé?

if KeyState <> ssShift then begin

end;

Le code ci-dessus affiche l'erreur.
Merci.

OriginalL'auteur Himadri | 2010-07-02

  1. 10

    IIUC vous voulez l'ensemble vide []:

    Something([ssShift]); // X
Something([ssCtrl]); // Y
Something([]); // Z

    Au sujet de votre mise à jour:

    procedure Something(keyState : TShiftState);
begin
  if ssShift in KeyState then // KeyState contains ssShift (and maybe more)
    X;
  if ssCtrl in KeyState then // KeyState contains ssCtrl (and maybe more)
    Y;
  if [ssShift, ssCtrl] * KeyState = [] then // KeyState contains neither ssShift nor ssCtrl
    Z;
end;

    Si vous êtes uniquement intéressé par ssShift et ssCtrl, et les autres valeurs (ssAlt, ssLeft, ...) n'a pas d'importance, vous pouvez masquer les derniers:

    procedure Something(keyState : TShiftState);
var
  MaskedKeyState : TShiftState
begin
  MaskedKeyState := KeyState * [ssShift, ssCtrl];
  if ssShift in MaskedKeyState then // MaskedKeyState contains ssShift
    X;
  if ssCtrl in MaskedKeyState then // MaskedKeyState contains ssCtrl
    Y;
  if MaskedKeyState = [] then // MaskedKeyState contains neither ssShift nor ssCtrl
    Z;
end;
    Veuillez voir mon édité question..
    Merci... à Vous de fournir à tous j'ai besoin.

    OriginalL'auteur Uli Gerhardt

  2. 4
    if ssShift in keyState then
  ShowMessage('1')
else if ssCtrl in keyState then
  ShowMessage('2')
else
  ShowMessage('3')

    essayer cette

    OriginalL'auteur Bharat