Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
UserSession based ModalWindow
#1
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);
Reply
#2
Hi, look this demo: https://github.com/Atozed/IntraWeb/tree/...odalWindow
Reply
#3
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.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)