Atozed Forums

Full Version: UserSession based ModalWindow
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
I am trying to call a routine that works like windows' MessageDlg. My call to showMsg does not show modal window.

Code:
procedure TIWUserSession.WindowDoOnAsyncClick(Sender: TObject; EventParams: TStringList);
var
  BtnCaption: string;
begin
  if ModalWin.ButtonIndex >= 0 then begin
    BtnCaption := ModalWin.Buttons[ModalWin.ButtonIndex-1];
    // First ButtonIndex is 1, not 0
    BtnCaption := StringReplace(BtnCaption, '&', '', [rfReplaceAll]);
    WebApplication.ShowMessage('You clicked on button: ' + BtnCaption);
  end;
end;

Code:
procedure TIWUserSession.ShowRegion(const ATitle: string; ARegion: TIWRegion); // this routine is executed
begin
  with UserSession.ModalWin do begin
    Reset;
    Buttons.CommaText := '&OK,&Cancel';
    Title := ATitle;
    ContentElement := ARegion;
    OnAsyncClick := WindowDoOnAsyncClick;
    Show;
  end;
end;

Code:
procedure showMsg;
  ShowYNFormw := TShowYNForm.Create(WebApplication);
  UserSession.ShowRegion('test',ShowYNFormw IWRegion1);
yes but it has a modal window tied to one form. I have 50 forms that need modal window that works like windows' MessageDlg. It needs modal window in UserSession.