Den ShiftState erhälst du über verschiedene Funktionen, welche in der
Forms.pas deklariert sind:
Delphi-Quellcode:
function KeysToShiftState(Keys: Word): TShiftState;
function KeyDataToShiftState(KeyData: Longint): TShiftState;
function KeyboardStateToShiftState(const KeyboardState: TKeyboardState): TShiftState; overload;
function KeyboardStateToShiftState: TShiftState; overload;
Wobei die letzten 2 die interessantesten für dich sein dürften. Dann ganz einfach fragen, ob ssShift enthalten ist oder nicht.
Allerdings musst du dann noch überprüfen, ob der CapsLock aktiv ist, was dann die Groß-/Kleinschreibung ja invertiert. Dabei dürfte dir
das weiterhelfen
