Help with Registered callback methods

[Jose Nilton Pace]

Hi Leo. I made a demo using callback on AsyncClick.

Code:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
   WebApplication.RegisterCallBack('clbkGridSel', clbkGridSel);
end;

procedure TIWForm1.clbkGridSel(aParams: TStrings );
begin
  fGridSelection := aParams.Values['Selection'];

  WebApplication.
  CallBackResponse.
   AddJavaScriptToExecuteAsCDATA( 'document.getElementById("IWEDIT1").value = "' + fGridSelection + '"' );

  WebApplication.ShowNotification( fGridSelection );
end;

procedure TIWForm1.IWButton1AsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  WebApplication.
  CallBackResponse.
   AddJavaScriptToExecute( 'ajaxCall("clbkGridSel", "Selection=something", false);' );
end;