Problem to set UniEvents run-time

[David Oliveira]

Problem to set UniEvents runtime, example:

 

procedure TFmeCadastroMestre.UniFormCreate(Sender: TObject);

...

  uniGUIClientEvents.TUniClientEvents(EdtCodigo.ClientEvents).UniEvents.Add('afterrender=function afterrender(sender, eOpts)');

  uniGUIClientEvents.TUniClientEvents(EdtCodigo.ClientEvents).UniEvents.Add('{');

  uniGUIClientEvents.TUniClientEvents(EdtCodigo.ClientEvents).UniEvents.Add('    sender.emptyText = "123";');

  uniGUIClientEvents.TUniClientEvents(EdtCodigo.ClientEvents).UniEvents.Add('}');

 

  or 

 

  EdtCodigo.ClientEvents.UniEvents.Text := 'afterrender=function afterrender(sender, eOpts)'#13#10'{'#13#10'    sender.e' +

      'mptyText = "123";'#13#10'}';

...

end;

[Farshad Mohajeri]

EdtCodigo.ClientEvents.ExtEvents.add('afterrender=function afterrender(sender, eOpts) {   }');

[Farshad Mohajeri]

Or

EdtCodigo.ClientEvents.ExtEvents.Values['afterrender']:='function(sender, eOpts) {   }');

[Farshad Mohajeri]

procedure TMainForm.UniFormCreate(Sender: TObject);

begin

  UniButton1.ClientEvents.ExtEvents.Values['click']:='function(sender){alert("Click")}';

  UniEdit1.ClientEvents.ExtEvents.Values['change']:='function(sender, newValue){MainForm.UniEdit2.setValue(newValue)}';  

  Self.ClientEvents.ExtEvents.Values['form.click']:='function(sender){MainForm.UniEdit2.setValue("form.click")}';  

  Self.ClientEvents.ExtEvents.Values['window.move']:='function(sender){MainForm.UniEdit2.setValue("window.move")}';

end;

 

[David Oliveira]

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.ClientEvents.ExtEvents.Values['click']:='function(sender){alert("Click")}';
  UniEdit1.ClientEvents.ExtEvents.Values['change']:='function(sender, newValue){MainForm.UniEdit2.setValue(newValue)}';  
  Self.ClientEvents.ExtEvents.Values['form.click']:='function(sender){MainForm.UniEdit2.setValue("form.click")}';  
  Self.ClientEvents.ExtEvents.Values['window.move']:='function(sender){MainForm.UniEdit2.setValue("window.move")}';
end;

 

great trick brow.... gracias!