Código Delphi [-] procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssAlt in Shift) and (Key = Ord('A')) then ShowMessage('ALt+A'); end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssAlt in Shift) and (Key = Ord('A')) then ShowMessage('ALt+A'); end;