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

[Christian18]

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

[mirage228]

Hi,

wie wärs mit

Delphi-Quellcode:

var
  str: string;
begin
  str := '';
  if ssShift in Shift then
    str := str + 'Shift + ';
  if ssCtrl in Shift then
    str := str + 'Strg + ';
  if ssAlt in Shift then
    str := str + 'Alt + ';
  if Length(str) > 0 then
    Delete(str, Length(str) - 2, 2);

Das sollte wirklich alles abdecken

mfG
mirage228

[Christian18]

eine frage mal bei meiner Version. wenn ich die Taste AltGr drücke, dann wird Strg + Alt angezeigt ist das richtig, oder habe ich da einen Programmierfehler gemacht???

[xaromz]

Hallo,

@Christian18: Da ist alles drin.

AltGr ist eine Kombination aus Alt + Strg. Da ist also alles in Ordnung.

Hier noch meine Lösung:

Delphi-Quellcode:

var
  Caption, Add: String;
begin
  Caption := '';
  Add := '';

  if ssShift in Shift then
  begin
    Caption := 'Shift;
    Add := ' + ';
  end;

  if ssAlt in Stift then
  begin
    Caption := Caption + Add + 'Alt';
    Add := ' + ';
  end;

  if ssStrg in Stift then
    Caption := Caption + Add + 'Strg';

  Label5.Caption := Caption;
end;

Wer schafft weniger if-Abfragen ?

Gruß
xaromz

[JasonDX]

Zitat von xaromz:

Wer schafft weniger if-Abfragen ?

Wenne schon so danach fragst...

Delphi-Quellcode:

function ShiftStateToString(s: TShiftState): string;
const
  Shifts: array[0..2] of TShiftState = ([ssAlt], [ssShift], [ssCtrl]);
  strings: array[0..2] of string = ('Alt', 'Shift', 'Control');
  formatStrings: array[boolean] of string = ('', '%s + ');
var
  i: byte;
begin
  result := '';
  for i := 0 to 2 do
    result := result + format(formatStrings[(Shifts[i] * s) <> []], [strings[i]]);
  delete(result, length(result) - 2, 2);
end;

greetz
Mike