Einzelnen Beitrag anzeigen

Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#1

Tastatur --> Shift --> alle eventualitäten

  Alt 2. Feb 2006, 20:31
Hallo,

ich wollte nur mal nachfragen, ob ich bei folgenden Code alle eventualitäten berücksichtigt habe.
Delphi-Quellcode:
  if Shift = [ssShift] then Label5.Caption:='Shift';
  if Shift = [ssAlt] then Label5.Caption:='Alt';
  if Shift = [ssCtrl] then Label5.Caption:='Strg';
  if Shift = [ssShift, ssAlt] then Label5.Caption:='Shift + Alt';
  if Shift = [ssShift, ssCtrl] then Label5.Caption:='Shift + Strg';
  if Shift = [ssAlt, ssCtrl] then Label5.Caption:='Alt + Strg';
  if Shift = [ssShift, ssAlt, ssCtrl] then Label5.Caption:='Shift + Alt + Strg';
MFG Christian18
  Mit Zitat antworten Zitat