add ClientEvent after a component is rendered

[tappatappa]

I am guessing whether is it possible to add a ClientEvent AFTER the component construction and render. For instance: add (or remove) a mouseover effect to a panel after the user clicks on a button.

void __fastcall TForm1::ButtonClick(TObject* Sender)
{
   Panel1->ClientEvents->ExtEvents->Values[L"mouseover"]=A_FUNCTION_BODY;
}

[Sherzod]

Hi,

 

Try:

procedure pMouseEnter(Sender: TObject);

procedure TMainForm.pMouseEnter(Sender: TObject);
begin
  //
end;

Use:

UniPanel1.OnMouseEnter := nil

UniPanel1.OnMouseEnter := pMouseEnter;

Best regards.

[tappatappa]

Hi Delphi Developer,
 

I am afraid that in my case using ajax events is not an option. I have to use tiny javascript-only events (where possible), in order to keep network usage to a reasonable level.

[Sherzod]

Then try this:

uses ... uniGUIJSInterface;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  IUniJSInterface(UniPanel1).JSAddListener('mouseover', 'function(sender){ ... }');
end;

[tappatappa]

Ok that looks very promising.

If I call JSAddListener multiple times, do the events cancel out?

 

If not:

How can I remove all the mouseover events added that way?

[Sherzod]

Hi,

 

If I call JSAddListener multiple times, do the events cancel out?

 

Yes, it can be done...

 

 

How can I remove all the mouseover events added that way?

 

For example (JS code):

MainForm.UniPanel1.events.mouseover.listeners = [];

Use:

uses ... uniGUIJSInterface;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  IUniJSInterface(UniPanel1).JSAssign('events.mouseover.listeners', '[]');
end;

Best regards.

[tappatappa]

Yes! Thanks again Delphi Developer, you are a hero!