KeyDown: welches Zeichen steht hinter "Key"

[Sunlight7]

Moin!

So könnte man das machen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   Case Char(Key) of
      'A'..'Z': If (ssShift in Shift) then Label1.Caption:=Char(Key) else Label1.Caption:=LowerCase(Char(Key));
      '0'..'9': Label1.Caption:=LowerCase(Char(Key));
      '+', '-', '*', '/': Label1.Caption:=Char(Key);
      else Label1.Caption:='Nicht dabei :(';
   end;
end;

Über Sinn und Unsinn sag' ich lieber nix

Grüßle!