TShiftState - Abfrage funktioniert nicht?

[simlei]

Ich habe in einem OnKeyDown-Event Die Abfrage

If Shift = ssShift Then ... Und er sagt: "Inkompatible Typen".
Dabei Steht in der Classes-Unit:

Delphi-Quellcode:

  TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);

und Shift ist ja vom Typ ShiftState...
Warum ist das so? Bzw. Wie kann ich nun abfragen ob Shift (und dann auch Alt, ...) gedrückt ist?

[Hawkeye219]

Hallo simlei,

Shift ist vom Typ "TShiftState", und das ist eine Menge, die mehrere Elemente gleichzeitig enthalten kann. Die von dir gewünschte Abfrage kannst du so durchführen:

if (ssShift in Shift) then... Gruß Hawkeye

[simlei]

wieder mal fix wie die feuerwehr...
danke!