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

[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