14 to 15 asycnClick

[Alexandre Machado]

I'll have a look and get back to you.

Thanks for the test case

Hi Alex, did you get a chance to look on it please?

Yes, I tested it. There is a bug in TMS code. I have no idea if they will ever fix it, so I'm fixing it myself.

BTW, why do you need this label control? It does nothing that our standard TIWLabel doesn't do already.

Here is how you fix it:

1) Open file IWTMSCtrls.pas

2) Find method TTIWHTMLLabel.RenderHTML

3) Comment out everything except the inherited call to it's ancestor method. Here's how it will be after it:

Code:

function TTIWHTMLLabel.RenderHTML(AContext: TIWBaseComponentContext): TIWHTMLTag;
//var
//  ajaxcall: string;
begin

//  if Assigned(OnAsyncClick) then
//    ajaxcall := 'processAjaxEvent(''onClick'', '
//      + HTMLControlImplementation.IWCLName
//      + ',''' + HTMLName + '.' + 'DoOnAsyncClick' + ''','
//      + 'true' + ', null, '
//      + 'true' + ');';

  Result := inherited RenderHTML(AContext);
//  Result.AddStringParam('onclick', ajaxcall);
end;

I'll add this to our (now long) list of fixes to TMS controls I did myself.

Build your application and run it. It will then work as expected.

Cheers