IWCGCreateMessageDialog

[etwoss]

Hi

I expected this to compile

Code: Select all

          Dlg := IWCGCreateMessageDialog(FMessageStr, mtConfirmation, [mbYes,mbNo],
            procedure (Sender: TObject; AResult: TModalResult; const AData: TCGVarArray)
            begin

            end);


However is says there is no overload that can be called with these arguments

while

Code: Select all

    procedure ConfirmCancelEntitlement(Sender: TObject; AResult: TModalResult; const AData: TCGVarArray);

    Dlg := IWCGCreateMessageDialog(FMessageStr, mtConfirmation, [mbYes,mbNo], ConfirmCancelEntitlement);


works fine.

Am i doing something wrong?

Eric

[Jorge Sousa]

Hello

yes this can happen. you have to fill all the parameters.

[etwoss]

Hi

if i use a construction like this, where is the best place to free 'Dlg'?

Code: Select all

          Dlg := IWCGCreateMessageDialog(LMessageStr, mtConfirmation, [mbYes,mbNo],
            procedure(Dialog: TIWCGJQMsgDialog; AResult: TModalResult)
            begin
              if AResult = mrYes then
              begin
                LIMServer := GetServer;
                try
                  LSystemSessionID := LogonAsSystem(LIMServer);
                  LOleVar := CreateUserTask(uttWebAction, utsHigh, UserName + ': Cancel ' + LStopEntitlementDesc, LMessageStr, '', LStopEntitlementID, otAllocation, Ord(qaCancellation), PosID);
                  LIMServer.UserTask.InsertObject(LOleVar, LObjectID, LSystemSessionID);
                finally
                  LogoffSession(LIMServer, LSystemSessionID);
                  DropServer(LIMServer);
                end;

                GridProfile.JQGridProviderCells.CellValue[7, LStopEntitlementRowIndex] := 'Pending';
                GridProfile.JQGridOptions.ReloadGrid;
             end;

          end);

          Dlg.Width := 700;
          Dlg.Height:= 300;
          Dlg.AjaxReRender();
         end;


[etwoss]

Hi

Checked it with FastMM, no memory leaks, does this mean it does not need freeing?

Eric

[Jorge Sousa]

The best and only place to free the dialog is in JQDialogOptions.OnClose calling WebApplication.ReleaseForm(Self) /* Self being a frame if the dialog it's in a frame, or the Dialog, if this is not in a frame

[etwoss]

Thanks!

[etwoss]

Hi

I noticed the Close is called because i call Visible := False

is that true?

Eric

[Jorge Sousa]

Hi

Yes it's true