انقر فوق زر في الكود في intraweb (VCL للويب)

Question

دعنا نقول أن لدي تطبيق intraweb (مكتوب في Delphi 2010) مع Iwedit (يسمى iwelookup) و iwbutton (iwbsearch). عندما يتم الضغط على Enter في Iwedit ، أريد النقر فوق Iwbutton.

يعمل الرمز التالي تقريبًا ، لكنني أعتقد أنني بحاجة إلى شيء لإعادة تقديم الصفحة.

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

ومع ذلك ، يتطلب هذا رحلة ذهابًا وإيابًا إلى الخادم (والتي ستكون مقبولة ولكن غير مرغوب فيها). من الناحية المثالية ، أود طريقة للقيام بذلك في JavaScript - من المفترض في Scriptevents for Iwedit (لكن مهارات JavaScript الخاصة بي حاليًا ، UM ، محدودة)

يمكن لأي شخص لي نقطة في الاتجاه الصحيح؟

Answer 1

لقد قمت بحل هذا إلى حد كبير ، في ScripTevents for the Button ، لـ OnKeyDown ، استخدمت الرمز التالي:

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

ولكن إذا كان هناك طريقة أفضل للقيام بذلك ...