在EDIT下按ALT+M,就弹出另外一个FORM,怎么实现?

Question

如题.谢谢

Answer 1

edit1.onkeydownif (shift in [ssshift]) and (key in [ord('M'),ord('m')])then
  begin
  end;

Answer 2

edit1.onkeydownif (shift in [ssshift]) and (key in [ord('M'),ord('m')])then
  begin
    在这里加生成Form代码  end;

Answer 3

if (shift in [ssshift]) and (key in [ord('M'),ord('m')])then这语句不对啊,提示以下错误
[Error] poporder.pas(192): Incompatible types: 'TShiftState' and 'Enumeration'

Answer 4

if (ssshift in [ssShift]) and (key in [ord('M'),ord('m')])then
  begin
    showmessage('fasdfs');  end;