Pep

In First Anonymous procedure you are checking if Result = mrOk in the other you didn't check Result

Hello, try this: procedure CallActionFrm2(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; edtInn.Text := IntToStr(tmp); end; end ); end; end; ... procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject); var id: Integer; begin id := 1; CallActionFrm2(id); end;

Thank you very much to share this code

Thank you very much!

Thank you very much, the sample is very usefull

Hello Paul, In Delphi 10.2, the Callback procedure "mbDeleteStaff" does'nt compile if is defined inside another procedure / function. You can use an anonymous procedure: MessageDlg('Delete the selected staff member?', mtConfirmation, mbYesNo, procedure(Sender: TComponent; Res: Integer) begin // code here to delete the staff record if Res = mrOk then begin qStaffDelete.ParamByName('pStaffId').AsInteger := qStaff.FieldByName('pStaffId').AsInteger qStaffDelete.ExecSQL; end; end );

"TUniCustomButtonItem" has the ScreenMask property and by code you can use it, but in runtime mode raise exception "invalid class typecast" var Col: TUniBaseDBGridColumn; BtnCol: TUniCustomButtonItem; begin Col := Grid.Columns.Add; Col := Grid.Columns.Add; Col.ActionColumn.Enabled := True; BtnCol := TUniCustomButtonItem(Col.ActionColumn.Buttons.Add); BtnCol.ScreenMask.Enabled := True; // <-- Compiles but in runtime mode raise exception "invalid class typecast" end Anybody knows if Is there another alternative to show ScreenMask on click action column? Thanks in advance!

Hello wprins, I'm using Delphi 10.2 with uniGUI Version:1.90.0 build 1496. The app seems that works ok!

Yes, the uniGUI Demo was very power, The classic "Hello World", but with scrpting!!, Very interesting! Take a look if you can.

Thanks a lot for sharing!

Thanks a lot!

rtalmeida, thanks a lot for this tip. For Frames I tested UniFrameReady an also works!

Hello, Today I decided to do some tests with the tools included in uniGUI: uniStressTest and hyperServer. I have to point out that I am not a specialist in this topic and it is the first time I use them, so there will surely be some parameters or conditions that will not be adequate. These tests are not intended to be very scientific, the intention is to test the application that we are developing. The tests are done in i7-4771 - SSD 250 GB. 12 GB RAM - Win10 Pro 64 bits - SQL Server 2012 64 bits The application to be tested is in 32 bits. The saved session to execute, generates a header with 5 lines and also another header with 1 line (Total 8 records recorded per session) to part one of a paged query. The "Playback Speed" that I have chosen is "Real Time x 8", because if I chose "Max Speed", not all the records are generated, maybe because the recorded session is made by opening several windows linked and grids . The results have been: Without hyperServer: The most I have achieved are 385 active sessions (with 4 errors). With hyperserver (max_nodes = 12): I have achieved 5000 active sessions !! Clearly here we can see the power of this tool! As I mentioned, these tests are not intended to draw scientific conclusions, but the intention was to test the power of this tool and I thought it was opportune to share these results in the forum because I think the uniGUI tool is impressive but now, much more with the inclusion of hyperserver. Thanks for this wonderful framework.

Hello skafy, In your sample, you are creating the controls in UniFormShow Event procedure TMainForm.UniFormShow(Sender: TObject); begin ... but if you create the controls in UniFormCreate then tab works ok: procedure TMainForm.UniFormCreate(Sender: TObject); var I: Integer; Edit: TUniEdit; begin for I := 0 to 10 do begin Edit := TUniEdit.Create(Self); edit.Parent:= panel1; edit.Align:= alTop; edit.FieldLabel:= I.ToString; edit.TabOrder:= I; end; end;