TSHIFTSTATE

[juelin]

Hallo schöne Weihnachten alle zusammen,
ich rufe das Ereignis
TFrame4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
im TImage auf.
Und damit nicht immer diese Warnung
unit6.pas(30,7) Hint: Parameter "Shift" not used
kommt setzte ich folgenden in der Routine Befehl ab
if Shift = ssAlt then ImagePosX:=X; (So steht es in der Onlinehilfe).
Nun kommt aber folgende Fehlermeldung
unit6.pas(199,12) Error: Operator is not overloaded : "TFhiftState = TShiftStateEnum"

Ich habe keine Ahnung warum (steht doch so in der Onlinehilfe).
Hat da jemand eine Idee?

Schöne Restweihnachten noch.
Gruß
Jürgen

[Warf]

TShiftState ist ein Set von TShiftStateEnum (es kann ja mehr als eine taste gleichzeitig gedrückt sein). Korrekt ist also

Code: Alles auswählen

ssAlt in Shift

Übrigens, das was du da bekommst ist keine Warnung sondern ein Hinweis (daher steht da Hint). Warnings sind Sachen die definitiv in manchen Situationen kaputt gehen können. So zu sagen Fehler die nur darauf warten zu passieren. Faustregel, ein Projekt sollte ohne warnings kompilieren.
Hints hingen sind Sachen die keine Fehler per se darstellen, aber potentiell ein Versehen sein können.

Beispiel, man hat eine komplexe Funktion und schreibt sie um sodass sie viel einfacher wird, dann bleiben ein Haufen Parameter und variablen übrig die vorher notwendig waren, in der neuen einfacheren version aber nicht mehr. Dafür sind diese hints da um dich drauf aufmerksam zu machen ob du das wirklich noch brauchst oder es nicht sogar löschen kannst

[theo]

Wie Warf sagt.
Deshalb kann es gleichzeitig mehrere Status enthalten.

Code: Alles auswählen

{ Types used by standard events }
  TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble,
    // Extra additions
    ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
    ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);  

[wennerer]

Hallo,
zu dem Thema ist vielleicht auch dies noch interessant:

viewtopic.php?p=142459#p142459

Viele Grüße
Bernd

[paweld]

oder wenn Sie prüfen wollen, ob nur Alt gedrückt wurde, dann

Code: Alles auswählen

if Shift = [ssAlt] then 
// ...

[juelin]

Ja danke für sie Hinweise.
Habe das Problem schon auf andere Weise gelöst.
Shift:=Shift;
Damit kommt die Warung Shift unused auch nicht mehr.
Alles Gute
Jürgen

[fliegermichl]

Du kannst aber auch unter Projekt -> Projekteinstellungen -> Compilereinstellungen -> Meldungen die Meldung Hint: Parameter "$1" not used ausschalten.