wsnet

I'am use anonymous procedure for Callback Form: Why the variable does not return procedure CallActionFrm2(var I: integer); var AfrmBaseDictionaryList: TfrmBaseDictionaryList; tmp: Integer; begin tmp := I; with TfrmBaseDictionaryList.Create(UniApplication) do begin ShowModal( procedure(Sender: TComponent; AResult: Integer) begin if AResult = mrOk then begin tmp := 100; end; end ); I := tmp; end; end; ... procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject); var id: Integer; begin id := 1; CallActionFrm2(id); edtInn.Text := IntToStr(id); // get id = 1, but id = 100! end; Why the variable id does not return ?

I'am use FMSoft_uniGUI_Complete_Professional_1.90.0.1496_Trial

Hi, how to remove border from window. I use in Form: function window.afterrender(sender, eOpts) { Ext.get (sender.id) .el.setStyle ("padding", 0); Ext.get (sender.id) .el.setStyle ("border-width", 0); Ext.get (sender.id) .el.setStyle ("- webkit-border-radius", 0); Ext.get (sender.id) .el.setStyle ("- moz-border-radius", 0); Ext.get (sender.id) .el.setStyle ("border-radius", 0); } BorderStyle:none; But, I see white border window.