代码之家  ›  专栏  ›  技术社区  ›  Alister

单击Intraweb中代码中的按钮(用于Web的VCL)

  •  0
  • Alister  · 技术社区  · 14 年前

    下面的代码几乎可以工作,但我想我需要一些东西来重新呈现页面。

    procedure TiwfLookupListing.iweLookupAsyncKeyDown(Sender: TObject;
      EventParams: TStringList);
    begin
      if EventParams.Values['which'] = '13' then
      begin
        iwbSearchClick(Sender);
      end;
    end;
    

    1 回复  |  直到 14 年前
        1
  •  1
  •   Alister    14 年前

    我已经基本解决了这个问题,在按钮的ScriptEvents中,对于onKeyDown,我使用了以下代码:

    if (event.which == 13) {
      IWBSEARCH_onclick(event);
      return false;
    } else {
      return true;
    }
    

    但是如果有更好的方法。。。