2017-08-27 33 views
1

在Delphi中使用Intraweb,AsyncKeyDown按鍵值

有沒有辦法找到AsyncKeyDown按鍵值?

我知道它以某種方式在EventParams:TStringList中,但我只能通過本地變量列表在運行時看到它像這樣,string ='char = i',並且我無法真正從它那裏得到它作爲字符,除非我做一個特殊的功能,從那裏拉,所以我想,如果有一個簡單的方法來獲取AsyncKeyDown作爲字符按下的鍵?

回答

1

我知道問了這個問題已經很長時間了。但對於那些仍然需要它的人來說,這將是件好事。我用它和工作。你可以把它作爲字符如下:

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;