Fórum As tecla denovo.. #353592

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Edit1.Text := chr(key);

 if      (ssShift  in Shift)  and (ssAlt    in Shift) then Edit2.Text := ´ ssShift  ssAlt   ´
 else if (ssAlt    in Shift)  and (ssCtrl   in Shift) then Edit2.Text := ´ ssAlt    ssCtrl  ´
 else if (ssCtrl   in Shift)  and (ssLeft   in Shift) then Edit2.Text := ´ ssCtrl   ssLeft  ´
 else if (ssLeft   in Shift)  and (ssRight  in Shift) then Edit2.Text := ´ ssLeft   ssRight ´
 else if (ssRight  in Shift)  and (ssMiddle in Shift) then Edit2.Text := ´ ssRight  ssMiddle´
 else if (ssMiddle in Shift)  and (ssDouble in Shift) then Edit2.Text := ´ ssMiddle ssDouble´
 else if (ssDouble in Shift)  and (ssShift  in Shift) then Edit2.Text := ´ ssDouble ssAlt´
 else if  ssShift  in Shift then Edit2.Text := ´ ssShift ´
 else if ssAlt    in Shift then Edit2.Text := ´ ssAlt   ´
 else if ssCtrl   in Shift then Edit2.Text := ´ ssCtrl  ´
 else if ssLeft   in Shift then Edit2.Text := ´ ssLeft  ´
 else if ssRight  in Shift then Edit2.Text := ´ ssRight ´
 else if ssMiddle in Shift then Edit2.Text := ´ ssMiddle´
 else if ssDouble in Shift then Edit2.Text := ´ ssDouble´
 else Edit2.Text := ´´;
end;