定义一个String来保存按键信息procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
keystr:String;
begin
if (shift=[ssALT]) and (shift=[ssCtrl]) then
begin
KeyStr:=KeyStr+chr(key);
end;
end;
Shift: TShiftState);
var
keystr:String;
begin
if (shift=[ssALT]) and (shift=[ssCtrl]) then
begin
KeyStr:=KeyStr+chr(key);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货