10-14-2021, 08:54 PM
I now have it working. I'll create an example this weekend (It's too late now) and post it here.
The basics:
The basics:
- TIWServerController.RenderAsyncEnabled := False;
- Make sure the application has access to iwbs.js (include it in your template or otherways)
Code:
TFrame
TIWBS4Moab
TIWBSMoab4Dialog
TIWBSMoabContent
TIWBS4 regions like modal-header, modal-body and modal-footer and controls
// create example
procedure TDlgMain.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);
var Dialog: TFrameModalTest;
begin
Dialog := TFrameModalTest.Create(Self);
Dialog.Parent := Self;
end;
// close button in dialog
procedure TFrameModalTest.btnCloseAsyncClick(Sender: TObject; EventParams: TStringList);
begin
IWFrameRegion.ModalVisible := False;
// when IWFrameRegion.DestroyOnHide = True, the parent TFrame will be freed as well
end;
