1

在 Delphi 中使用 Intraweb,

有没有办法找到 AsyncKeyDown 按下的键值?

我知道它在 EventParams: TStringList 中的某种方式,但我只能在运行时通过局部变量列表看到它,字符串 = 'char = i',除非我做一个特殊的函数,否则我不能真正从那里把它作为一个字符取出从那里拉它,所以我在想是否有一种简单的方法可以从 AsyncKeyDown 将按下的键作为字符获取?

4

1 回答 1

1

我知道这个问题被问到已经很久了。但这对那些仍然需要它的人来说是件好事。我使用它并工作。您可以将其作为 char 获取,如下所示:

http://www.devsuperpage.com/search/Articles.aspx?G=2&ArtID=52557

procedure TfrmLHasta.edSuzAsyncKeyDown(Sender: TObject;
  EventParams: TStringList);
var
  lKey: char;
begin
  lKey := Chr(StrToInt(EventParams.Values['which']));
  //  WebApplication.ShowMessage(lKey);
  if lKey = #13 then DoSomething;
end;
于 2017-11-04T14:53:47.840 回答